32 BASIC Programs for the 
PET Computer 



Tom Rugg & Phil Feldman 



32 BASIC Programs for the 
PET Computer 



Tom Rugg and Phil Feldman 



dilithium Press 
Portland, Oregon 



© Copyright, dilithium Press, 1979 

10 987654321 

All rights reserved. No part of this book may be reproduced 
in any form or by any means without permission in writing 
from the publisher, with the following two exceptions: any 
material may be copied or transcribed for the non-profit use 
of the purchaser; and material (not to exceed 300 words and 
one figure) may be quoted in published reviews of this book. 

ISBN: 0-918398-25-8 

Library of Congress catalog card number: 78-24837 

Printed in the United States of America. 

dilithium Press 

P.O. Box 92 

Forest Grove, Oregon 97116 



PET refers to the PET 2001 Computer which is a registered 
trademark of Commodore Business Machines, Inc., 901 
California Avenue, Palo Alto, California 94304. 



Acknowledgements 



Our thanks to the following for their help and encouragement : 
Our wives and families, John Craig, Martin Cohen, Asenatha 
McCauley, Herb Furth, Freddie, Michael Richter, Wayne Green, 
Jay Balakrishnan, and everybody at the Computer Store in 
Santa Monica. 



BASIC Programs for the PET 



AN IMPORTANT NOTE 

The publisher and authors have made every effort to assure 
that the computer programs and programming information in 
this publication are accurate and complete. However, this 
publication is prepared for general readership, and neither the 
publisher nor the authors have any knowledge about or ability 
to control any third party's use of the programs and program- 
ming information. There is no warranty or representation by 
either the publisher or the authors that the programs or pro- 
gramming information in this book will enable the reader or 
user to achieve any particular result. 



Preface 



You have bought yourself a Commodore PET 2001 computer 
(or maybe you just have access to one at school or work). You 
will soon find that the most frequent question you are asked 
goes something like this: "Oh, you got a computer, eh? Uh . . . 
what are you going to do with it?" 

Your answer, of course, depends on your own particular 
situation. Maybe you got it for mathematical work, or for your 
business, or for home usage, or to enable you to learn more 
about computers. Maybe you got it for a teaching/learning tool 
or for playing games. 

Even if you got the computer specifically for only one of 
these reasons, you should not neglect the others. The computer 
is such a powerful tool that it can be used in many different 
ways. If it is not being used for its "intended" function right 
now, why not make use of it in some other way? 

The PET is so small and portable that you can, say, take it 
home from work over the weekend and let the kids play educa- 
tional games. They will have fun and learn a lot. After they go 
to bed, you can use it to help plan your personal finances. Or, 
you can let your guests at a party try to outsmart the PET (or 
each other) at some fascinating games. The possibilities go on 
and on. 

All these things can be done with the PET, but the PET can- 
not do any of them without the key ingredient -a computer 
program. People with little or no exposure to computers may be 
in for a surprise when they learn this. A computer without a 
program is like a car without a driver. It just sits there. 
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So you ask, "Where can I get some programs to do the things 
I want my computer to do?" Glad you asked. There are several 
alternatives. 

1 . Hire a computer programmer. If you have a big budget, this is 
the way to go. Good programmers are expensive and hard to 
find (and you will not know for sure if they're really good 
until after the job is finished). Writing a couple of programs 
that are moderately complex will probably cost you more 
than you paid for the PET itself. 

2. Learn to program yourself. This is a nice alternative, but it 
takes time. There are lots of programming books available - 
some are good, some not so good. You can take courses at 
local colleges. If you can afford the time and you have a fair 
amount of common sense and inner drive, this is a good 
solution. 

3. Buy the programs you want. This is cheaper than hiring your 
own programmer because all the buyers share the cost of 
writing the programs. You still will not find it very cheap, 
especially if you want to accumulate several dozen programs. 
Each program might cost anywhere from a few dollars to 
several hundred dollars. The main problem is that you cannot 
be sure how good the programs are, and, since they are gen- 
eralized for all possible buyers, you may not be able to easily 
modify them to do exactly what you want. Also, they have 
to be written in a computer language that your computer 
understands. Even if you find a program written in the BASIC 
language, you will soon learn that the PET's BASIC is not the 
same as other versions. Variations between versions of the 
same language typically result in the program not working. 

This book gives you the chance to take the third alternative 
at the lowest possible cost. If you divide the cost of the book 
by the number of programs in it (use your computer if you like), 
you will find that the cost per program is amazingly low. Even 
if there are only a few programs in the book that will be useful 
to you, the cost is pretty hard to beat. 

Just as important is the fact that these programs are written 
specifically for your PET. If you type them in exactly as shown, 
they will work! No changes are needed. In addition, we show 
you exactly what to change in order to make some simple 
modifications that may suit your taste or needs. Plus, if you 
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have learned a little about BASIC, you can go even further and 
follow the suggestions about more extensive changes that can be 
made. This approach was used to try to make every program 
useful to you, whether you are a total beginner or an old hand 
with computers. 

But enough of the sales pitch. Our main point is that we feel 
a computer is an incredibly flexible machine, and it is a shame 
to put it to only one or two limited uses and let it sit idle the 
rest of the time. We are giving you a pretty wide range of things 
to do with your PET, and we are really only scratching the 
surface. 

So open your eyes and your mind. Play a mental game against 
the computer (WARI, JOT). Evaluate your next financial deci- 
sion (LOAN, DECIDE). Expand your vocabulary or improve 
your reading speed (VOCAB, TACHIST). Solve mathematical 
equations (DIFFEQN, SIMEQN). 

But please, don't leave your PET asleep in the corner too 
much. Give it some exercise. 
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How to Use This Book 



Each chapter of this book presents a computer program that 
runs on an 8K Commodore PET 2001 computer. Most will also 
run on a 4K PET (see Appendix 1 ). Each chapter is made up of 
eight sections that serve the following functions: 

1. Purpose: Explains what the program does and why you might 
want to use it. 

2. How To Use It: Gives the details of what happens when you 
run the program. Explains your options and the meanings of 
any responses you might give. Provides details of any limita- 
tions of the program or errors that might occur. 

3. Sample Run: Shows you what you will see on the screen when 
you run the program. 

4. Program Listing: Provides a "listing" (or "print-out") of the 
BASIC program. These are the instructions to the computer 
that you must provide so it will know what to do. You must 
type them in extremely carefully for correct results. 

5. Easy Changes: Shows you some very simple changes you can 
make to the program to cause it to work differently, if you 
wish. You do not have to understand how to program to 
make these changes. 

6. Main Routines: Explains the general logic of the program, in 
case you want to figure out how it works. Gives the BASIC 
line numbers and a brief explanation of what each major 
portion of the program accomplishes. 

7. Main Variables: Explains what each of the key variables in 
the program is used for, in case you want to figure out how it 
works. 
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8. Suggested Projects: Provides a few ideas for major changes 
you might want to make to the program. To try any of these, 
you will need to understand BASIC and use the information 
provided in the previous two sections (Main Routines and 
Main Variables). 

To use any of these programs on your PET computer, you 
need only use the first four sections. The last four sections are 
there to give you supplementary information if you want to 
tinker with the program. 

RECOMMENDED PROCEDURE 

Here is our recommendation of how to try any of the programs 
in this book: 

1. Read through the documentation that came with the PET to 
learn the fundamentals of communication with the computer. 
This will teach you how to turn the computer on, enter a 
program, correct mistakes, run a program, etc. 

2. Pick a chapter and read Section 1 ("Purpose") to see if the 
program sounds interesting or useful to you. If not, move on 
to the next chapter until you find one that is. If you are a 
beginner you might want to try one of the short "Miscellaneous 
Programs" first. 

3. Read Sections 2 and 3 of the chapter ("How To Use It" and 
"Sample Run") to learn the details of what the program does. 

4. Enter the NEW command to eliminate any existing program 
that might already be in your PET's memory. Using Section 4 
of the chapter ("Program Listing"), carefully enter the pro- 
gram into the PET. Be particularly careful to get all the punc- 
tuation characters right (i.e., commas, semicolons, colons, 
quotation marks, etc.). 

5. After the entire program is entered into the PET's memory, 
use the LIST command to display what you have entered so 
you can double check for typographical errors, omitted lines, 
etc. Don't mistake a semicolon for a colon, or an alphabetic 
I or O for a numeric 1 or (zero). Take a minute to note the 
differences in these characters before you begin. 

6. Before trying to RUN the program, use the SAVE command 
to save the program temporarily on cassette. This could pre- 
vent a lot of wasted effort in case something goes wrong 
(power failure, PET malfunction, etc.). 
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7. Now RUN the program. Is the same thing happening that is 
shown in the Sample Run? If so, accept our congratulations 
and go on to step 9. If not, stay cool and go to step 8. 

8. If you got a SYNTAX ERROR in a line, LIST that line and 
look at it closely. Something is not right. Maybe you inter- 
changed a colon and a semicolon. Maybe you typed a numeric 
1 or instead of an alphabetic I or O. Maybe you misspelled 
a word or omitted one. Keep looking until you find it, then 
correct the error and go back to step 7. 

If you got some other kind of error message, consult the 
PET documentation for an explanation. Keep in mind that 
the error might not be in the line that is pointed to by the 
error message. It is not unusual for the mistake to be in a line 
immediately preceding the error message line. Another possi- 
bility is that one or more lines were omitted entirely. In any 
event, fix the problem and go back to step 7. 

If there are no error messages, but the program is not doing 
the same thing as the Sample Run, there are two possibilities. 
First, maybe the program isn't supposed to do exactly the 
same thing. Some of the programs are designed to do unpre- 
dictable things to avoid repetition (primarily the game pro- 
grams and graphic displays). They should be doing the same 
types of things as the Sample Run, however. 

The second possibility is that you made a typing error that 
did not cause an error message to be displayed, but simply 
changed the meaning of one or more lines in the program. 
These are a little tricky to find, but you can usually narrow 
it down to the general area of the problem by noting the 
point at which the error takes place. Is the first thing dis- 
played correct? If so, the error is probably after the PRINT 
statement that caused the first thing to be displayed. Look 
for the same types of things mentioned before. Make the 
corrections and go back to step 7. 
9. Continue running the program, trying to duplicate the Sample 
Run. If you find a variation that cannot be accounted for in 
the "How To Use It" section of the chapter, go to step 8. 
Otherwise, if it seems to be running properly, SAVE the 
program on cassette (using the same name as the title of the 
chapter), and VERIFY it. 
10. Read Section 5 of the chapter ("Easy Changes"). Try any of 
the changes that look interesting. If you think the changed 
version is better, SAVE it on cassette, too. You will probably 
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want to give it a slightly different name from the original 
version to avoid future confusion. For example, try SAVE 
"VOCAB2" instead of SAVE"VOCAB". 

A NOTE ON THE PROGRAM LISTINGS 

A line on the screen of the PET is 40 characters wide. The 
printer that was used to create the Program Listing section of 
each chapter prints lines up to 80 characters long. For best 
reproduction in this book, it is preferable that each published 
line be no longer than 55 characters. This combination of facts 
might cause you a little confusion when you are copying the 
programs into your PET. Here's the way it works. 

Wherever there is a line in a program that is longer than 55 
characters, it has been divided into two lines that are each no 
more than 55 characters. You can recognize this easily because 
the second part has no line number at the left-hand side. This 
division is only for the purpose of printing the book. You should 
think of a divided line like this as one long line and enter it 
into your PET as a single line. Where possible, this division 
is made in such a way that the first part of the line ends with 
a colon so you can notice it more easily. 

Don't be fooled by the fact that the cursor on your PET 
jumps down to the next line after you enter the 40th character 
-it's just one long line until you press RETURN. 
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Section 1 
Applications Programs 



INTRODUCTION TO APPLICATIONS PROGRAMS 

Good practical applications are certainly a prime use of per- 
sonal computers. There are a myriad of ways the PET can help 
us to do useful work. Here are six programs for use around the 
home or business. 

Financial considerations are always important. LOAN will 
calculate interest, payment schedules etc. for mortgages, car 
loans, or any such business loan. Do you ever have trouble 
balancing your checkbook(s)? CHECKBOOK will enable you to 
rectify your monthly statements and help you find the cause of 
any errors. 

Fuel usage is a constant concern for those of us who drive. 
MILEAGE will determine and keep track of a motor vehicle's 
general operating efficiency. 

By no means is the PET restricted to numerical type applica- 
tions. STOPWATCH will turn your computer into a precise 
sophisticated stopwatch with a variety of uses. 

Often we are faced with difficult decisions. DECIDE trans- 
forms the PET into a trusty advisor. Help will be at hand for 
any decision involving the selection of one alternative from 
several choices. 

Before anything else, you might want to consult BIORHYTHM 
each day. Some major airlines, and other industries, are placing 
credence on biorhythm theory. If you agree, or "just in case," 
simply turn on your PET and load this program. 
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BIORHYTHM 



PURPOSE 

Did you ever have one of those days when nothing seemed to 
go right? All of us seem to have days when we are clumsy, feel 
depressed, or just cannot seem to force ourselves to concentrate 
as well as usual. Sometimes we know why this occurs. It may 
result from the onset of a cold or because of an argument with a 
relative. Sometimes, however, we find no such reason. Why 
can't we perform up to par on some of those days when nothing 
is known to be wrong? 

Biorhythm theory says that all of us have cycles, beginning 
with the moment of birth, that influence our physical, emo- 
tional, and intellectual states. We will not go into a lot of detail 
about how biorhythm theory was developed (your local library 
probably has some books about this if you want to find out 
more), but we will summarize how it supposedly affects you. 

The physical cycle is twenty-three days long. For the first 
1 \Vi days, you are in the positive half of the cycle. This means 
you should have a feeling of physical well-being, strength, and 
endurance. During the second 1 IY2 days, you are in the negative 
half of the cycle. This results in less endurance and a tendency 
toward a general feeling of fatigue. 

The emotional cycle lasts for twenty-eight days. During the 
positive half (the first fourteen days), you should feel more 
cheerful, optimistic, and cooperative. During the negative half, 
you will tend to be more moody, pessimistic, and irritable. 

The third cycle is the intellectual cycle, which lasts for 
thirty-three days. The first half is a period in which you should 
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have greater success in learning new material and pursuing 
creative, intellectual activities. During the second half, you are 
supposedly better off reviewing old material rather than at- 
tempting to learn difficult new concepts. 

The ups and downs of these cycles are relative to each indi- 
vidual. For example, if you are a very self-controlled, unemo- 
tional person to begin with, your emotional highs and lows may 
not be very noticeable. Similarly, your physical and intellectual 
fluctuations depend upon your physical condition and intellec- 
tual capacity. 

The day that any of these three cycles changes from the plus 
side to the minus side (or vice versa) is called a "critical day." 
Biorhythm theory says that you are more accident-prone on 
critical days in your physical or emotional cycles. Critical days 
in the intellectual cycle aren't considered as dangerous, but if 
they coincide with a critical day in one of the other cycles, the 
potential problem can increase. As you might expect, a triple 
critical day is one on which you are recommended to be es- 
pecially careful. 

Please note that there is quite a bit of controversy about 
biorhythms. Most scientists feel that there is not nearly enough 
evidence to conclude that biorhythms can tell you anything 
meaningful. Others believe that biorhythm cycles exist, but that 
they are not as simple and inflexible as the 23, 28, and 33 day 
cycles mentioned here. 

Whether biorhythms are good, bad, true, false, or anything 
else is not our concern here. We are just presenting the idea to 
you as an interesting theory that you can investigate with the 
help of your PET computer. 

HOW TO USE IT 

The program first asks for the birth date of the person whose 
biorhythm cycles are to be charted. You provide the month and 
day as you might expect. For the year, you only need to enter 
the last two digits if it is between 1900 and 1999. Otherwise, 
enter all four digits. 

Next the program asks you for the start date for the biorhythm 
chart. Enter it in the same way. Of course, this date cannot be 
earlier than the birth date. 

After a delay of about a second, the program clears the screen 
and begins plotting the biorhythm chart, one day at a time. The 
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left side of the screen displays the date, while the right side dis- 
plays the chart. The left half of the chart is the "down" (negative) 
side of each cycle. The right half is the "up" (positive) side. The 
center line shows the critical days when you are at a zero point 
(neither positive or negative). 

Each of the three curves is plotted with an identifying letter— 
P for physical, E for emotional, and I for intellectual. When the 
curves cross, an asterisk is displayed instead of either of the two 
(or three) letters. 

Eighteen days of the chart are displayed on one screen, and 
then the program waits for you to press a key. If you press the 
E key, the current chart ends and the program starts over again. 
If you press the SPACE key (or any other key except STOP or 
SHIFT), the program clears the screen and displays the next 
eighteen days of the chart. 

The program will allow you to enter dates from the year 
100 A.D. and on. We make no guarantees about any extreme 
future dates, however, such as entering a year greater than 
3000. We sincerely hope that these limitations do not prove to 
be too confining for you. 

SAMPLE RUN 



BIORHVTHMS 



ENTER BIRTH DATE 

MONTH C ™ <*•>■> ' 

V <1 
VEAR? 47 
1947 ASSUMED. 

ENTER START DATE FOR CHART 



V <i 
VEAR? 7 X 
1978 ASSUMED. 



The operator enters his or her birth date and the date for the beginning of 
the chart 
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BIORHVTHH 



DATE — DOWN 



1 I E E 



P I P 
P I 



TO END, SPACE TO CONTINUE 



The program responds with the first 18 days of the operator's biorhythm 
chart, then waits for a key to be pressed. 



PROGRAM LISTING 

too rem: biorhythm 

110 REM: COPYRIGHT 1978 BY TOM RUGG AND PHIL FELDMAN 
120 L=0:Z=.???9:T=15:P=3. 14159265 

130 print chr*q47)jtab(8)*"bi0rhythms" 
140 gosub i2oo:print:print 
150 print"enter birth date" 

160 GOSUB 500 

170 GOSUB 600 

180 JB=JD 

190 PRINTJPRINT-ENTER START DATE FOR CHART" 

200 GOSUB 500 

210 GOSUB 600 

220 JC=JD 

230 IF JO-JB THEN 270 

240 PRINT-CHART DATE CAN'T BE EARLIER" 

250 PRINT "THAN BIRTH DATE. TRY AGAIN." 

260 GOTO 140 

270 FOR J=l TO 1000:NEXT 

280 GOSUB 700 

300 N=JC-JB 

310 V=23J GOSUB 800 J GOSUB 850 

320 y=28*.G0SUB 800:GOSUB 850 
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330 V=33tG0SUB 800JGOSUB 850 

340 GQSUB 1000 

350 PRINT C$JTAB<8)»U 

360 JC=JC«JL=L+i:iF L<18 THEN 300 

370 PRINTtPRINT"PRE5S 'E' TO END, SPACE TO CONTINUE" 

380 GET RttIF R*="" THEN 380 

390 IF R$="E" THEN 120 

400 L=0JGOTO 280 

500 PRINT 

505 INPUT"MONTH (1 TO 12>SH 

510 M=INT(M):iF M<1 OR M>12 THEN 505 

520 INPUT"BAY (1 TO 31>"»D 

530 D=INT(B):iF D<1 OR B>31 THEN 520 

540 INPUT" YEARLY 

550 Y=INT<YKIF Y<0 THEN 540 

560 IF Y>99 THEN 580 

570 Y=Y+1900 {PRINT Y}"ASSUMED." 

580 RETURN 

600 U=INT<<M-14)/12+Z) 

610 JD=INT<1461*(Y+4800+W>/4> 

620 B=367*(M-2-W*12>/12 

630 IF B<0 THEN B=B+Z 

640 B=INT(B)tJD=JD+B 

650 B=INT< INT( 3*< Y+4900+W )/100 )/4 ) 

660 JD=JB+B-32075-B 

670 RETURN 

700 PRINT CHR$(147)» 

710 PRINT TAB(14)f"BI0RHYTHN" 

720 PRINTtPRIMT"— DATE— " $TAB< 11 )i 

730 PRINT"D U N" »TAB( 23 >> "0"»TAB< 29 )f "U P" 

740 PRINT TAB(8)JU* 

750 RETURN 

800 W=INT<N/V)tR=N-W*V 

810 RETURN 

350 IF V<>23 THEN 900 

855 L*=CHR$<32)tF0R J=l TO 4 

860 l*=l*+l*:next 

870 L$=L*+LEFT$<L*»15> 

880 L*=LEFT$< L$»T )+CHR$( 194 >+RIGHT$( L«»T ) 

890 IF V=23 THEN C$="P" 

?00 IF V=28 THEN C$="E M 

910 IF M=33 THEN C*="I" 

920 W=R/VtW=W*2*P 

930 W=T*SIN(W)tW=U+T+1.5 

940 W=INT<W>:A*=MID*<L$rW»l> 

950 IF A*="P H OR A*="E" OR A*="»" THEN C$= B r 

955 IF W=l THEN 980 

957 IF W=31 THEN 990 

960 Lt=LEFT*< LS»W-1 )+C*+RIGHT*( L*,31-« ) 
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970 RETURN 

980 L*=Ct+RIGHT$<L*»30)tRETURN 

990 L$=LEFT$tL«»30)+C*{RETURN 

1000 W=JC+-68569tR=INT(4*W/14A097) 

1010 W=W~INT<U460?7*R+3>/4> 

1020 Y=INT(4000*<W+1>/1461001) 

1030 W=W-rNT<1461*Y/4)+31 

1040 M=INT(80*W/2447) 

1050 D=W-INT< 2447*M/80 ) 

1060 W=INT<M/11>:H=N+2-12*U 

1070 Y=100*<R-49)+Y+W 

1080 At=STR*<H):W=LEN<A*)-l 

1090 C*=HIIi$<A$f2,W)+ ,, / H 

1100 A*=STR*(D)tU=LEN<A*)-l 

1110 M=C$+HID$(A$»2tW)+ h / m 

1120 A$=STR$(Y)*.W=LEN(A$)-1 

1130 C*=C*+HID$(A*»Uf2) 

1140 RETURN 

1200 U$=CHR*(210)tFOR J=l TO 4 

1210 U$=U$+U$5NEXT 

1220 U$=U*+LEFT$<U*,15) 

1230 RETURN 

EASY CHANGES 

1 . Want to see the number of days between any two dates? 
Insert this line: 

305 PRINT "DAYS ="; N: END 

Then enter the earlier date as the birth date, and the later 
date as the start date for the chart. This will cause the pro- 
gram to display the difference in days and then end. 

2. To alter the number of days of the chart shown on each 
screen, alter the 18 in line 360. You might prefer 14, for 
example. 

MAIN ROUTINES 

1 20 - 140 Initializes variables. Displays titles. 

150-180 Asks for birth date and converts to Julian date 

format (i.e., the number of days since January 1, 

4713 B.C. 
190- 220 Asks for start date for chart and converts to Julian 

date format. 
230 - 260 Checks that chart date is not sooner than birth date. 
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270 




280 




300 




310- 


330 


340 




350 




360- 


■400 



Delays about one second before displaying chart. 

Displays heading at top of screen. 

Determines number of days between birth date and 

current chart date. 

Plots points in L$ string for each of the three cycles. 

Converts Julian date back into month-day-year 

format. 

Displays one line on the chart. 

Adds one to chart date. Checks to see if the screen is 

full. 
500 - 580 Subroutine to ask operator for month, day, and year. 

Edits replies. 
600 - 670 Subroutine to convert month, day, and year into 

Julian date format. 
700 - 750 Subroutine to clear screen and display headings. 
800 - 8 1 Subroutine to calculate remainder R of N/V. 
850 - 990 Subroutine to plot a point in L$ based on V and R. 
1000-1140 Subroutine to convert Julian date JC back into 

month-day-year format. 
1200-1230 Subroutine to create a string of 31 horizontal graphics 

characters. 

MAIN VARIABLES 

L Counter of number of lines on screen. 

Z Constant used in integer truncation. 

T Number of characters on one side of the center of 

the chart. 
P Pi. 

JB Birth date in Julian format. 

JD Julian date calculated in subroutine. 

JC Chart start date in Julian format. 

J Loop and work variable. 

N Number of days between birth and current chart date. 

V Number of days in present biorhythm cycle (23, 28, 
or 33). 

C$ String with date in month/day /year format. 

L$ String with one line of the biorhythm chart. 

R$ Reply from operator after screen fills up. 

M Month (1-12) 

D Day (1-31) 

Y Year ( 1 00 or greater) 
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W, B Work variables. 

R Remainder of N/V (number of days into cycle). 

U$ String of 3 1 horizontal graphics characters. 

A$ Work variable. 

SUGGESTED PROJECTS 

Investigate the biorhythms of some famous historical or ath- 
letic personalities. For example, are track and field athletes 
usually in the positive side of the physical cycle on the days 
that they set world records? Where was Lincoln in his emotional 
and intellectual cycles when he wrote "The Gettysburg Address"? 
Do a significant percentage of accidents befall people on critical 
days? 



CHECKBOOK 



PURPOSE 

Many people consider the monthly ritual of balancing the 
checkbook to be an irritating and error-prone activity. Some 
people get confused and simply give up after the first try, while 
others give up the first time they cannot reconcile the bank 
statement with the checkbook. Fortunately, you have an advan- 
tage-your computer. This program takes you through the 
necessary steps to balance your checkbook, doing the arithmetic 
for you, of course. 

HOW TO USE IT 

The program starts off by giving you instructions about how 
to verify that the amount of each check and deposit are the 
same on the statement as they are in your checkbook. Some- 
times the bank will make an error in reading the amount that 
you wrote on a check (especially if your handwriting is not too 
clear), and sometimes you will copy the amount incorrectly 
into your checkbook. While you are comparing these figures, 
make a check mark in your checkbook next to each check and 
deposit listed on the statement. A good system is to alternate 
the marks you use each month (maybe an "x" one month and a 
check mark the next) so you can easily see which checks and 
deposits came through on which statement. 

Next, the program asks for the ending balance shown on the 
bank statement. You are then asked for the check number (not 
the amount) of the most recent check shown on the statement. 
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This will generally be the highest numbered check the bank has 
processed, unless you like to write checks out of sequence. 
Your account balance after this most recent check will be 
reconciled with the statement balance, so that is what the pro- 
gram asks for next— your checkbook balance after the most 
recent check. 

The program must compensate for any differences between 
what your checkbook has in it prior to the most recent check 
and what the statement has on it. First, if you have any deposits 
that are not shown on the statement before the most recent 
check, you must enter them. Generally, there are none, so you 
just enter "END." 

Next you have to enter the amounts of any checks that have 
not yet "cleared" the bank and that are prior to the most recent 
check. Look in your checkbook for any checks that do not have 
your check mark next to them. Remember that some of these 
could be several months old. 

Next you enter the amount of any service charges or debit 
memos that are on the statement, but which have not been 
shown in your checkbook prior to the most recent check. 
Typically, this is just a monthly service charge, but there 
might also be charges for printing new checks for you or some 
other adjustment that takes money away from you. Credit 
memos (which give money back to you) are not entered until 
later. Be sure to make an entry in your checkbook for any of 
these adjustments so that next month's statement will balance. 
Finally, you are asked for any recent deposits or credit 
memos that were not entered in your checkbook prior to the 
most recent check, but that are listed on the bank statement. It 
is not unusual to have one or two of these, since deposits are 
generally processed by banks sooner than checks. 

Now comes the moment of truth. The program tells you 
whether or not you are in balance and displays the totals. If so, 
pack things up until next month's statement arrives. 

If not, you have to figure out what is wrong. You have seven 
options of what to do next which allow you to review the num- 
bers you entered in case of a typing error, if you find an error, 
go back to the beginning and try again. Of course, if it is a simple 
error that precisely accounts for the amount by which you are 
out of balance, there is no need to go through the whole thing 
again. 
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If you entered everything correctly, the most likely cause of 
the out of balance condition is an arithmetic error in your 
checkbook. Look for errors in your addition and subtraction, 
with subtraction being the most likely culprit. This is especially 
likely if the amount of the error is a nice even number like one 
dollar or ten cents. 

Another common error is accidentially adding the amount of 
a check in your checkbook instead of subtracting it. If you did 
this, your error will be twice the amount of the check (which 
makes it easy to find). 

If this still does not explain the error, check to be sure you 
subtracted last month's service charge when you balanced your 
checkbook with the previous statement. And, of course, if you 
did not balance your checkbook last month, you cannot expect 
it to come out right this month. 

The program has limitations of how many entries you can 
make in each category (checks outstanding, deposits outstanding, 
etc.), but these can be changed easily. See "Easy Changes" 
below. 

NOTE: SEE DISCLAIMER IN FRONT PART OF BOOK. 



SAMPLE RUN 

CHECKBOOK BALANCER 

FIRST, COMPARE THE BANK STATEMENT 
WITH YOUR CHECKBOOK. 

MAKE SURE THE STATEMENT AND THE 
CHECKBOOK SHOW THE SAME FIGURES 
FOR EACH CHECK AND DEPOSIT. 

MAKE A MARK IN THE CHECKBOOK NEXT TO 
EACH CHECK AND DEPOSIT LISTED 
ON THE STATEMENT. 

WHAT'S THE ENDING BALANCE SHOWN 
ON THE STATEMENT? 
? 520.16 
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NOW FIND THE MOST RECENT CHECK THAT 
IS SHOWN ON THE BANK STATEMENT. 

WHAT IS THE CHECK NUMBER OF 
THIS CHECK? 1652 

WHAT BALANCE DOES YOUR CHECKBOOK 
SHOW AFTER CHECK NO. 1652 
? tf80. 12 

ENTER THE AMOUNT OF EACH DEPOSIT 
THAT IS SHOWN IN YOUR CHECKBOOK 
PRIOR TO CHECK NO. 1652 
BUT IS NOT ON THE STATEMENT. 

WHEN NO MORE, SAY 'END' 
? END 

TOTAL = 

NOW ENTER THE AMOUNTS OF ANY CHECKS 
THAT ARE IN YOUR CHECKBOOK PRIOR 
TO CHECK 1652 BUT THAT 
HAVE NOT BEEN SHOWN ON A BANK 
STATEMENT YET. 

WHEN NO MORE, SAY 'END* 
? 3 5.0^ 
? _l£ 
? END 

TOTAL = ^5.0^ 

NOW ENTER THE AMOUNTS OF ANY 
SERVICE CHARGES OR DEBIT MEMOS. 

WHEN NO MORE, SAY 'END' 
? 2-35 
? 2.65 
? END 

TOTAL = 5 

ENTER THE AMOUNT OF EACH DEPOSIT 
THAT IS SHOWN IN YOUR CHECKBOOK 



CHECKBOOK 
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AFTER CHECK NO. 1652 THAT IS 
ALSO LISTED ON THE STATEMENT. 

WHEN NO MORE, SAY 'END' 
? END 

TOTAL = 

CONGRATULATIONS! IT BALANCES. 

STATEMENT BALANCE + DEPOSITS OUTSTANDING 

+ SERVICE CHARGES = 525.16 

CHECKBOOK BALANCE + CHECKS OUTSTANDING 
+ RECENT DEPOSITS = 525.16 

DIFFERENCE = 

NEXT ACTION: 

1 - LIST CHECKS OUTSTANDING 

2 - LIST DEPOSITS OUTSTANDING 

3 - LIST SERVICE CHARGES 
h - START OVER 

5 - END PROGRAM 

6 - DISPLAY BALANCING INFO 

7 - LIST DEPOSITS AFTER LAST CHECK 

? I 

READY. 

PROGRAM LISTING 



ioo 

110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
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BALANCER" 



HUH CHECKBOOK BALANCER 

kE.fi J COPYRIGHT 1978 BY 1 

PRINT CHR$<147) 

PRINT TAB< 10) i "CHECKBOOK 

PRINTtPRINT 

mc=10:mb=5:ms=5:mk=5 

DIM CC MC ) ? IK MD ) » S< MS ) ? R( MR ) 

TC=0 I i K=0 t TS=0 t TR=0 t NC=0 I ND=0 t NS=0 I NR=0 

E$=" ERROR. RE-ENTER? PLEASE." 

PRINT"FIRST ? COMPARE THE BANK STATEMENT 

PRINT" WITH YOUR CHECKBOOK." 

PRINT 

PRINF'MAKE SURE THE STATEMENT AND THE" 
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230 PRINT" CHECKBOOK SHOW THE SAME FIGURES" 

240 PRINT'FQR EACH CHECK AND DEPOSIT*" 

250 PRINTJPRINT'MAKE A HARK IN THE CHECKBOOK NEXT TO" 

260 PRINF'EACH CHECK AND DEPOSIT LISTED" 

270 PRINPON THE STATEMENT ♦" 

280 PRINT JPRINT"WHAT'S THE ENDING BALANCE SHOWN" 

290 PRINT-ON THE STATEMENT?" { INPUT SB 

300 PRINT iPRIN'PNOW FIND THE MOST RECENT CHECK THAT" 

310 PRINT"IS SHOWN ON THE BANK STATEMENT," 

320 PRINT 

330 PRINT" WHAT IS THE CHECK NUMBER OF" 

340 INPUT'THIS CHECK" ?LC 

350 IF LC=INT<LC) THEN 380 

360 PR I NT "NO? NOT THE AMOUNT OF THE CHECK." 

370 GOTO 300 

380 PRINT 

390 PRINT'WHAT BALANCE DOES YOUR CHECKBOOK" 

400 PRINT-SHOW AFTER CHECK NO." JLC 

410 INPUT CB 

420 PRINT JPRINT 

430 PRINF'ENTER THE AMOUNT OF EACH DEPOSIT" 

440 PRINT'THAT IS SHOWN IN YOUR CHECKBOOK" 

450 PRINT"PRIOR TO CHECK NO."?LC 

460 PRINT-BUT IS NOT ON THE STATEMENT." 

470 A*="UHEN NO MORE? SAY 'END'" {PRINT{PRINT A$ 

480 INPUT R$ 

490 IF R*="END" THEN 545 

500 IF VAL(R*)>0 THEN 520 

510 PRINT tPRINT EtJGOTO 470 

520 ND=NB+1 1 IK ND >=VAL< R* ) I TD=TD+IK ND ) 

530 IF NIKMD THEN 480 

540 PRINT {PRINT"NO MORE ROOM." 

545 PRINTJPRINT'TOTAL ="?TIiJPRINT 

550 PRINT"NOW ENTER THE AMOUNTS OF ANY CHECKS" 

560 PRINT'THAT ARE IN YOUR CHECKBOOK PRIOR" 

570 PRINT M TO CHECK" JLCi "BUT THAT" 

580 PRIW'HAVE NOT BEEN SHOWN ON A BANK" 

590 PRINT" STATEMENT YET." 

600 PRINT {PRINT A$ 

610 INPUT R* 

620 IF R$="END" THEN 690 

630 IF VALCR$»0 THEN 660 

640 PRINT {PRINT E$ 

650 GOTO 600 

660 NC=NC+1 :C< NC >=VAL< R* )5 TC=TC+C( NC ) 

670 IF NC<MC THEN 610 

680 PRINHPRINPNO MORE ROOM" {PRINT 

690 PRINT{PRINT"TOTAL ="}TC;PRINT 

700 PRINP'NGW ENTER THE AMOUNTS OF ANY" 
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710 PRINT-SERVICE CHARGES OR DEBIT MEMOS*" 

720 PR I NT {PRINT A* 

730 INPUT R% 

740 IF R*="END" THEN 800 

750 IF VAL(R$)>0 THEN 770 

760 PRINTJPRINT E${GOTO 720 

770 NS=NS+1 5S< NS )=VAL( R$ ) l TS=TS+S( NS ) 

780 IF NS<MS THEN 730 

790 PRINTtPRINFNO MORE ROOM" {PRINT 

800 PRINUPRINT'TOTAL ="JTS:PRINT 

805 GOSUB 2000 

8io u=sb+td+ts-cb-tc-tr:w=abs< y ; 

815 IF IK.001 THEN M=0 

817 IF WOO THEN 840 

820 PRINTSPRINT'CGNGRATULATIONS! IT BALANCES*" 

830 GOTO 850 

840 PRINT {PRINT"SORRYf IT'S OUT OF BALANCE." 

850 PRINT 

860 PRINT'STATEMENT BALANCE f DEPOSITS OUTSTANDING" 

870 PRINT"+ SERVICE CHARGES = " jSB+TIHTS 

880 PRINT 

890 PRINT"CHECKBOOK BALANCE i CHECKS OUTSTANDING" 

900 PRINT"+ RECENT DEPOSITS = H »CB+TC+TR 

910 PRINT 

920 PRINT-DIFFERENCE ="»U 

930 PRINT 

940 PRINT-NEXT ACTION {" 

950 PRINT" 1 - LIST CHECKS OUTSTANDING" 

960 PRINT" 2 - LIST DEPOSITS OUTSTANDING" 

970 PRINT" 3 - LIST SERVICE CHARGES" 

980 PRINT" 4 - START OVER" 

990 PRINT" 5 -■ END PROGRAM" 

1000 PRINT" 6 - DISPLAY BALANCING INFO" 

1010 PRINT" 7 - LIST DEPOSITS AFTER LAST CHECK" 

1020 INPUT R${R=VAL(R$) 

1030 IF R<1 OR R>7 THEN 1050 

1040 ON R GOTO 1100 * 1200? 1 300 ? 1400 ? 1500 ? 850 ? 1700 

1050 PRINT SPRINT E${GOTO 930 

1100 PRINT{PRINT{PRINT"CHECKS OUTSTANDING" 

1110 FOR J=l TO NC 

1120 PRINT C(J){NEXT 

1130 GOTO 930 

1200 PRINT IPRINT{PRINT"DEPOSITS OUTSTANDING" 

1210 FOR J=l TO ND 

1220 PRINT B(J){NEXT 

1230 GOTO 930 

1300 PRINT {PRINT {PRINT'SERVICE CHARGES" 

1310 FOR J=l TO NS 

1320 PRINT SCJKNEXT 
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1330 GOTO 930 

1400 CLR 

1410 GOTO 120 

1500 END 

1700 PRINTtPRINTSPRINF'RECENT DEPOSITS" 

1710 FOR J=l TO NR 

1720 PRINT FMJKNEXT 

1730 GOTO 930 

2000 PRINT 

2010 PRINT-ENTER THE AMOUNT OF EACH DEPOSIT" 

2020 PRINT-THAT IS SHOWN IN YOUR CHECKBOOK" 

2030 PRINT"AFTER CHECK NO." JLCi "THAT IS" 

2040 PRINT" ALSO LISTED ON THE STATEMENT," 

2050 PRINT: PRINT M 

2060 INPUT R$ 

2070 IF R*="END" THEN 2130 

2080 IF VAL<R$»0 THEN 2100 

2090 PRINTJPRINT E*IGOTO 2050 

2100 NR=NR+1 IR( NR )=VAL( R* >:TR=TR+Rt NR > 

2110 IF NR<MR THEN 2060 

2120 PRINTSPRINT-NO MORE ROOM." 

2130 PRINTtPRINT-TOTAL ="iTR!PRINT 



2140 RETURN 



EASY CHANGES 



Change the limitations of how many entries you can make in 
each category. Line 150 establishes these limits. If you have 
more than ten checks outstanding at some time, change the 
value of MC to 20, for example. The other three variables can 
also be changed if you anticipate needing more than five entries. 
They are: the number of deposits outstanding (MD), the number 
of service charges and debit memos (MS), and the number of 
recent deposits and credit memos (MR). 

MAIN ROUTINES 

1 20 - 290 Initializes variables and displays first instructions. 

300-370 Gets most recent check number. 

380-410 Gets checkbook balance after most recent check 

number. 
420-545 Gets outstanding deposits. 
550 - 690 Gets outstanding checks. 
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700 -: 


800 


805 




810-' 


920 


930- 


1050 


1100 


- 1130 


1200 


-1230 


1300 


- 1330 


1400 


-1410 


1500 




1700 


- 1730 


2000 


-2140 
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Gets service charges and debit memos. 
Gets recent deposits and credit memos. 
Does balancing calculation. Displays it. 
Asks for next action. Goes to appropriate sub- 
routine. 

Subroutine to display checks outstanding. 
Subroutine to display deposits outstanding. 
Subroutine to display service charges and debit 
memos. 

Clears variables and restarts program. 
Ends the program. 

Subroutine to display recent deposits. 
Subroutine to get recent deposits. 



MAIN VARIABLES 

MC Maximum number of checks outstanding. 

MD Maximum number of deposits outstanding. 

MS Maximum number of service charges, debit memos. 

MR Maximum number of recent deposits, credit 

memos. 

C Array for checks outstanding. 

D Array for deposits outstanding. 

S Array for service charges and debit memos. 

R Array for recent deposits and credit memos. 

TC Total of checks outstanding. 

TD Total of deposits outstanding. 

TS Total of service charges and debit memos. 

TR Total of recent deposits and credit memos. 

NC Number of checks outstanding. 

ND Number of deposits outstanding. 

NS Number of service charges and debit memos. 

NR Number of recent deposits and credit memos. 

E$ Error message. 
SB Statement balance. 

LC Number of last check on statement. 

CB Checkbook balance after last check on statement. 
R$ Reply from operator. 

W Amount by which checkbook is out of balance. 

R Numeric value of reply for next action. 
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SUGGESTED PROJECTS 

1 . Add more informative messages and a more complete intro- 
duction to make the program a tutorial for someone who has 
never balanced a checkbook before. 

2. Allow the operator to modify any entries that have been 
discovered to be in error. This could be done by adding 
another option to the "NEXT ACTION" list, which would 
then ask the operator which category to change. This would 
allow the operator to correct an error without having to 
re-enter everything from the beginning. 

3. If the checkbook is out of balance, have the program do an 
analysis (as suggested in the "How To Use It" section) and 
suggest the most likely errors that might have caused the con- 
dition. 

4. Allow the operator to find arithmetic errors in the check- 
book. Ask for the starting balance, then ask for each check or 
deposit amount. Add or subtract, depending on which type 
the operator indicates. Display the new balance after each 
entry so the operator can compare with the checkbook entry. 
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PURPOSE 

"Decisions, decisions!" How many times have you uttered 
this lament when confronted by a difficult choice? Wouldn't a 
trusty advisor be helpful on such occasions? Well, you now have 
one— your PET computer of course. 

This program can help you make decisions involving the 
selection of one alternative from several choices. It works by 
prying relevant information from you and then organizing it in 
a meaningful, quantitiative manner. Your best choice will be 
indicated and all of the possibilities given a relative rating. 

You can use the program for a wide variety of decisions. It 
can help with things like choosing the best stereo system, 
saying yes or no to a job or business offer, or selecting the best 
course of action for the future. Everything is personalized to 
your individual decision. 

HOW TO USE IT 

The first thing the program does is ask you to categorize the 
decision at hand into one of these three categories: 

1 ) Choosing an item (or thing), 

2) Choosing a course of action, or 

3) Making a yes or no decision. 

You simply press 1, 2, or 3 to indicate which type of decision is 
facing you. (It is not necessary to hit the RETURN key.) If you 
are choosing an item, you will be asked what type of item it is. 
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If the decision is either of the first two types, you must next 
enter a list of all the possibilities under consideration. A question 
mark will prompt you for each one. When the list is complete, 
type "END" in response to the last question mark. You must, 
of course, enter at least two possibilities. (We hope you don't 
have trouble making decisions from only one possibility!) After 
the list is finished, it will be re-displayed so that you can verify 
that it is correct. If not, you must re-enter it. 

Now you must think of the different factors that are important 
to you in making your decision. For example, location, cost, 
and quality of education might govern the decision of which 
college to attend. For a refrigerator purchase, the factors might 
be things like price, size, reliability, and warranty. In any case, 
you will be prompted for your list with a succession of question 
marks. Each factor is to be entered one at a time with the word 
"END" used to terminate the list. When complete, the list will 
be re-displayed. You must now decide which single factor is the 
most important and input its number. (You can enter if you 
wish to change the list of factors.) 

The program now asks you to rate the importance of each of 
the other factors relative to the most important one. This is 
done by first assigning a value of 10 to the main factor. Then 
you must assign a value from - 1 to each of the other factors. 
These numbers reflect your assessment of each factor's relative 
importance as compared to the main one. A value of 10 means 
it is just as important; lesser values indicate how much less 
importance you place on it. 

Now you must rate the decision possibilities with respect to 
each of the importance factors. Each importance factor will be 
treated separately. Considering only that importance factor, 
you must rate how each decision possibility stacks up. The 
program first assigns a value of 10 to one of the decision possi- 
bilities. Then you must assign a relative number (lower, higher, 
or equal to 10) to each of the other decision possibilities. 
An example might alleviate possible confusion here. Suppose 
you are trying to decide whether to get a dog, cat, or canary for 
a pet. Affection is one of your importance factors. The program 
assigns a value of 1 to the cat. Considering only affection, you 
might assign a value of 20 to the dog and 6.5 to the canary. This 
means you consider a dog twice as affectionate as a cat but a 
canary only about two thirds as affectionate as a cat. (No 
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slighting of bird lovers is intended here, of course. Your actual 
ratings may be entirely different.) 

Armed with all this information, the program will now 
determine which choice seems best for you. The various possi- 
bilities are listed in order of ranking. Alongside each one is a 
relative rating with the best choice being normalized to a value 
of 100. 

Of course, DECIDE should not be used as a substitute for 
good, clear thinking. However, it can often provide valuable 
insights. You might find one alternative coming out surprisingly 
low or high. A trend may become obvious when the program is 
re-run with improved data. At least, it may help you think 
about decisions systematically and honestly. 



SAMPLE RUN 
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I CAN HELP YOU MAKE A DECISION. ALL 
I NEED TO DO IS ASK SOME QUESTIONS AND 
THEN ANALYZE THE INFORMATION YOU GIVE. 

WHICH OF THESE BEST DESCRIBES THE TYPE 
OF DECISION FACING YOU? 

1) CHOOSING AN ITEM FROM VARIOUS 
ALTERNATIVES. 

2) CHOOSING A COURSE OF ACTION FROM 
VARIOUS ALTERNATIVES. 

3) MAKING A 'YES' OR 'NO' DECISION. 

WHICH ONE Cl, 2, OR 3)? I 

WHAT TYPE OF ITEM MUST YOU DECIDE UPON 
? VACATION 

I NEED TO HAVE A LIST OF EACH 
VACATION UNDER CONSIDERATION. 

INPUT THEM ONE AT A TIME 
IN RESPONSE TO EACH QUESTION MARK. 

THE ORDER IN WHICH YOU INPUT THEM 
HAS NO PARTICULAR SIGNIFICANCE. 

TYPE THE WORD 'END' TO INDICATE 
THAT THE WHOLE LIST HAS BEEN ENTERED. 
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? MOUNTAIN CAMPING 

? AFRICAN SAFARI 

? TRIP TO WASHINGTON D.C. 

? END 

O.K. HERE'S THE LIST YOU'VE GIVEN ME: 

1) MOUNTAIN CAMPING 

2) AFRICAN SAFARI 

3) TRIP TO WASHINGTON D.C. 

IS THIS LIST CORRECT (Y OR N) ? YES 

NOW, THINK OF THE DIFFERENT FACTORS 
THAT ARE IMPORTANT TO YOU IN CHOOSING 
THE BEST VACATION. 

INPUT THEM ONE AT A TIME IN RESPONSE 
TO EACH QUESTION MARK. 

TYPE THE WORD 'END' TO TERMINATE 
THE LIST. 
? RELAXATION 
? AFFORDABILITY 
? CHANGE OF PACE 
? END 
HERE'S THE LIST OF FACTORS YOU GAVE ME: 

1) RELAXATION 

2) AFFORDABILITY 

3) CHANGE OF PACE 

DECIDE WHICH FACTOR ON THE LIST IS 
THE MOST IMPORTANT AND INPUT ITS NUMBER. 

(TYPE IF THE LIST NEEDS CHANGING.) 

? 2 

NOW LET'S SUPPOSE WE HAVE A SCALE OF 
IMPORTANCE RANGING FROM 0-10.. 

WE'LL GIVE AFFORDABILITY A 
VALUE OF 10 SINCE AFFORDABILITY 
WAS RATED THE MOST IMPORTANT. 

ON THIS SCALE, WHAT VALUE OF 
IMPORTANCE WOULD THE OTHER FACTORS HAVE? 

RELAXATION 
? 5.5 
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CHANGE OF PACE 
? I 

EACH VACATION 
MUST NOW BE COMPARED WITH RESPECT TO 
EACH IMPORTANCE FACTOR. 

WE'LL CONSIDER EACH FACTOR 
SEPARATELY AND THEN RATE 
EACH VACATION IN TERMS 
OF THAT FACTOR ONLY. 

LET'S GIVE MOUNTAIN CAMPING 
A VALUE OF 10 ON EVERY SCALE. 

THEN EVERY OTHER VACATION 
WILL BE ASSIGNED A VALUE HIGHER OR 
LOWER THAN 10. THIS VALUE DEPENDS ON 
HOW MUCH YOU THINK IT IS BETTER OR 
WORSE THAN MOUNTAIN CAMPING 



CONSIDERING ONLY RELAXATION AND 
ASSIGNING 10 TO MOUNTAIN CAMPING ; 
WHAT VALUE WOULD YOU ASSIGN TO 

AFRICAN SAFARI? 3 

TRIP TO WASHINGTON D.C.? 9. 

CONSIDERING ONLY AFFORDABI L I TY AND 
ASSIGNING 10 TO MOUNTAIN CAMPING ; 
WHAT VALUE WOULD YOU ASSIGN TO 

AFRICAN SAFARI? 1 

TRIP TO WASHINGTON D.C.? 8_ 

CONSIDERING ONLY CHANGE OF PACE AND 
ASSIGNING 10 TO MOUNTAIN CAMPING ; 
WHAT VALUE WOULD YOU ASSIGN TO 

AFRICAN SAFARI? £0 

TRIP TO WASHINGTON D.C.? 2_5 

TRIP TO WASHINGTON D.C. COMES OUT BEST 
BUT IT'S VERY CLOSE. 

HERE IS THE FINAL LIST IN ORDER. 

TRIP TO WASHINGTON D.C. HAS BEEN 
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GIVEN A VALUE OF 100 AND THE OTHERS 
RATED ACCORDINGLY. 



100 TRIP TO WASHINGTON D.C. 

98.6587184 MOUNTAIN CAMPING 
78.8375559 AFRICAN SAFARI 

READY. 

PROGRAM LISTING 

100 REM DECIDE 

110 REM COPYRIGHT 1978 BY PHIL FELDMAN AND TOM RUGG 

160 DIM L*(10)fF$(10)»V<10)»C<10»10>»D<10)»Z(10) 

180 E*="END" 

190 FOR J=l TO 10 J GET R* I NEXT 

200 G0SUB 2000 

210 PRINT" I CAN HELP YOU MAKE A DECISION. ALL" 

220 PRINT" I NEED TO DO IS ASK SOME QUESTIONS AND" 

230 PRINT"THEN ANALYZE THE INFORMATION YOU GIVE." {PRINT 

240 PRINT" "{PRINT 

250 PRINT"WHICH OF THESE BEST DESCRIBES THE TYPE" 

260 PRINFOF DECISION FACING YOU?" {PRINT 

270 PRINT" 1) CHOOSING AN ITEM FROM VARIOUS" 

280 PRINT" ALTERNATIVES. "{PRINT 

290 PRINT" 2) CHOOSING A COURSE OF ACTION FROM" 

300 PRINT" VARIOUS ALTERNATIVES. " {PRINT 

310 PRINT" 3) MAKING A 'YES' OR 'NO' DECISION." {PRINT 

320 PRINT"WHICH ONE <1» 2» OR 3>?"i 

330 GET R${IF R$="" THEN 330 

340 T=VAL(R*){IF T<1 OR T>3 THEM 3j0 

350 PRINT T5G0SUB 2000 

400 FOR J=l TO ?{GET FtttNEXTtON T GOTO 410^440,470 

410 PRINT"UHAT TYPE OF ITEM MUST YOU DECIDE UPON" 

420 INPUT T$5G0T0 500 

440 T*="COURSE OF ACTION" {GOTO 500 

470 T*="'YES y OR 'NO'" 

480 NI=2{L$(l)= n DECIDING YES" :L*( 2 )="DECIDING NO" 

490 GOTO 750 

500 GOSUB 2000JNI=0 

510 PRINT" I NEED TO HAVE A LIST OF EACH" 

520 PRINT J$j" UNDER CONSIDERATION." {PRINT 

530 PRINT" INPUT THEM ONE AT A TIME" 

540 PRINT'lN RESPONSE TO EACH QUESTION MARK." {PRINT 

550 PRINT" THE ORDER IN UHICH YOU INPUT I HEM" 

560 PRINT"HAS NO PARTICULAR SIGNIFICANCE. " JPRINi 

570 PRINT" TYPE THE WORD "iEti"' TO INDICATE" 
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580 PRINT"THAT THE WHOLE LIST HAS BEEN ENTERED/' I PRINT 

590 NI=NI+lt INPUT L$< NI ) 

600 IF L*< NI ><>E$ THEN 590 

610 NI=NI-1 

620 IF NI>=2 THEN 650 

630 PRINT:PRINT"YOU HUST HAVE AT LEAST 2 CHOICES" SPRINT 

640 PRINT M TRY AGAIN" 5G0SUB 2100 {GOTO 500 

650 GOSUB 2000 J 

PRINT"O.K. HERE'S THE LIST YOU'VE GIVEN ME{" {PRINT 
660 FOR J=l TO NI {PRINT" " 5 JJCHR$< i57 )»" ) "JL$<J)t 

NEXT {PRINT 
670 FOR J=l TO 9 {GET R${NEXT{ 

PRINT"IS THIS LIST CORRECT <Y OR N) ? "» 
680 GET R*tIF R$= H " THEN 680 
690 IF R$="Y" THEN PRINT"YES" {GOTO 750 
700 IF R*= B N" THEN PRINT"NO" 
710 IF R*="N" THEN PRINT! 

PRINT" THE LIST HUST BE RE-ENTERED" 
720 IF R$="N" THEN GOSUB 2100IGOSUB 500 
730 GOTO 680 

750 GOSUB 2000JFOR J=l TO 9{GET R$5NEXT 
760 PRINT" NOW* THINK OF THE DIFFERENT FACTORS" 
770 IF T<3 THEN 

PRINT" THAT ARE IMPORTANT TO YOU IN CHOOSING" 
780 IF T<3 THEN PRINT" THE BEST " mi"." 
790 IF T=3 THEN PRINT"THAT ARE IHPORTANT TO 

YOU IN DECIDING" SPRINPYES OR NO" 
800 PRINT J 

PRINT" INPUT THEM ONE AT A TIME IN RESPONSE" 
810 PRINFTO EACH QUESTION MARK," {PRINT 
820 PRINT" TYPE THE WORD "",£$',"' TO TERMINATE" 
830 PRINT"THE LIST." {PRINTJNF=0 
840 NF=NF+1J INPUT F*< NF ) 
850 IF F*(NF)OE* THEN 840 
860 NF=NF-1I PRINT 
870 IF NF<1 THEN 

PRINT" YOU MUST HAVE AT LEAST ONE! - REDO IT" 
880 IF NF<1 THEN GOSUB 2100 {GOTO 750 
890 GOSUB 2000IPRINT"HERE'S THE LIST OF 

FACTORS YOU GAVE ME{" {PRINT 
900 FOR J=l TO NFt 

PRINT" "5J;CHR$U57);"> " 5F*( J 5JNEXHPRINT 
910 PRINT" DECIDE WHICH FACTOR ON THE LIST IS" 
920 PRINT"THE MOST IMPORTANT AND INPUT ITS NUMBER." 
930 PRINT"(TYPE IF THE LIST NEEDS CHANGING. )" {PRINT 
940 INPUT A{A=INT<A)5IF A=0 THEN 750 
950 IF A>NF THEN 890 
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1000 GOSUB 2000: IF NF=1 THEN 1200 

1010 PRINT" NOW LET'S SUPPOSE WE HAVE A SCALE OF" 

1020 PRINT" IMPORTANCE RANGING FROM 0-10." {PRINT 

1030 PRINT" WE'LL GIVE "}F*<A)f" A" 

1040 PRINT" VALUE OF 10 SINCE "}F*(A> 

1050 PRINT"WAS RATED THE MOST IMPORTANT," {PRINT 

1060 PRINT" ON THIS SCALE. WHAT VALUE OF" 

1070 PRINT" IMPORTANCE WOULD THE OTHER FACTORS HAVE?" 

1080 FOR J=l TO NFJIF J=A THEN 1110 

1090 PRINTtPRINT F*<J)tINPUT WJ> 

1100 IF V(JK0 OR V(J)>10 THEN 

PRINT" IMPOSSIBLE VALUE - TRY AGAIN" {GOTO 1090 

1110 NEXT 

1200 V(A)=10{Q=OIFOR J=l TO NF5Q=0IV(J){NEXT{ 

FOR J=l TO NF 
1210 g<J>=V<J)/Q:NEXTJGOSUB 2000 
1220 IF T<>3 THEN PRINT" EACH NT* 
1230 IF T=3 THEN PRINT" DECIDING YES OR DECIDING NO" 
1240 PRINT-MUST NOW BE COMPARED WITH RESPECT TO" 
1250 PRINT"EACH IMPORTANCE FACTOR." {PRINT 
1260 PRINT" WE'LL CONSIDER EACH FACTOR" 
1270 PRINT-SEPARATELY AND THEN RATE" 
1280 IF T<>3 THEN PRINT" EACH NT*>" IN TERMS" 
1290 IF T=3 THEN 

PRINT"DECIDING YES OR DECIDING NO IN TERMS" 
1300 PRINFOF THAT FACTOR ONLY," {PRINT 
1310 PRINT" LET'S GIVE NL$U > 
1320 PRINT-A VALUE OF 10 ON EMERY SCALE," {PRINT 
1330 IF T<>3 THEN PRINT" THEN EVERY OTHER NT* 
1340 IF T=3 THEN PRINT" THEN DECIDING NO" 
1350 PRINT"WILL BE ASSIGNED A VALUE HIGHER OR" 
1360 PRINT"LOWER THAN 10, THIS VALUE DEPENDS ON" 
1370 PRINT"HOW MUCH YOU THINK IT IS BETlER OR" 
1380 PRINT-WORSE THAN " 5L*< 1 ) 
1390 PRINT: FOR J=l TO NF 

1400 PRINT" " 

1410 PRINT" CONSIDERING ONLY "JF$(J)J" AND" 
1420 PRINT-ASSIGNING 10 TO B iL*<l)»" 5" 
1430 PRINT-WHAT VALUE WOULD YOU ASSIGN TO" 
1440 PRINT5F0R K=2 TO NI 
1450 PRINT L*(K)J {INPUT C(K»J)JPRINTt 
IF C<KfJ)>=0 THEN 1470 

1460 print" —negative values not legal— "{goto 1450 
1470 mext:print:c<i»j>=iojnext 
1500 for j=i to nf:q=o;for K=l TO NI 

1510 fl=Q+C(K»J)JNEXTJFOR K=l TO NI 

1520 C(KfJ)=C<K»J)/QtNEXT{NEXT 

1530 FOR K=l TO NIJD<K)=0{FOR J=l TO NF 
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1540 D< K )=»< K )+C( K»J )*V( J )! NEXT I NEXT 

1550 MX=0tFOR K=l TO NI 

1560 IF D< K »HX THEN MX=D(K> 

1570 NEXTIFOR K=l TO NHIK K )=D( K >«00/MX;NEXT 

1600 FOR K=l TO NIIZ< K )=KINEXTJNM=NI-1 

1610 FOR K=l TO NItFOR J=l TO NM:N1=Z< J)tN2=Z( J+l >: 

IF D<N1»D<N2) THEN 1630 
1620 Z( J+l)=NltZ(J)=N2 

1630 next: next :ji=z< i ):.J2=z>: 2 ):df=d< ji )-d< J2 >: 

GOSUB 2000 
1700 PRINT L*(J1)» 
1710 PRINT" COMES OUT BEST" 
1720 IF DF<5 THEN 

PRINT"BUT IT'S VERY CLOSE," J GOTO 1800 
1730 IF DF<10 THEN PRINT" BUT IT'S FAIRLY CLOSE.": 

GOTO 1800 
1740 IF DF<20 THEN PRINT"BY A FAIR AMOUNT." t GOTO 1800 
1750 PRINT"QUITE DECISIVELY." 
1800 PRINT:PRINT"HERE IS THE FINAL LIST IN ORDER."t 

PRINT 

1810 print l«<j1)»" has been" 

1820 print" given a value of 100 and the others" 

1830 print-rated accordingly." {print 

1840 print" "jprint 

1850 for j=i to ni:g=z<j>: 

PRINT D<Q)»TAB<16)JL$<Q):NEXT 
1860 END 

2000 FOR J=l TO 1000 {NEXT 
2010 PRINT CHR$( 147 )JTAB< 16 )?CHR$( 18)5 "DECIDE"; 

CHRt( 17 >;CHR$< 17)t RETURN 
2100 FOR J=l TO 2500 : NEXT! RETURN 
READY . 



EASY CHANGES 

1. The word "END" is used to flag the termination of various 
input lists. If you wish to use something else (because of con- 
flicts with items on the list), change the definition of E$ in 
line 180. For example, to use the word "DONE," change line 
180 to 

180E$="DONE" 

2. Line 2100 contains a timing delay used regularly in the pro- 
gram. If things seem to change too fast, you can make the 
number 2500 larger. Try 

2100 FOR J=l TO 5 000: NEXT: RETURN 
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3. The program can currently accept up to nine decision alterna- 
tives and/or nine importance factors. If you need more, 
increase the dimensioning in line 1 60. Each dimension value 
is one more than the number the program will actually allow. 
Thus, to use 14 values, line 160 should be 

160 DIM L$(15),F$(15),V(15),C(15,15),D(15),Z(15) 

MAIN ROUTINES 

1 60 - 190 Initializes and dimensions variables. 

200 - 350 Determines category of decision. 

400-490 Gets or sets T$. 

500 - 730 Gets list of possible alternatives from user. 

750-950 Gets list of importance factors from user. 

1 000 - 1 1 1 User rates each importance factor. 

1 200 - 1470 User rates the decision alternatives with respect to 

each importance factor. 

1 500 - 1 570 Evaluates the various alternatives. 

1 600 - 1 63 Sorts alternatives into their relative ranking. 

1 700 - 1 860 Displays results. 

2000 - 201 Subroutine to clear screen and display header. 

2 1 00 Time wasting subroutine. 

MAIN VARIABLES 

NI Number of decision alternatives. 

L$ String array of the decision alternatives. 

NF Number of importance factors. 

F$ String array of the importance factors. 

V Array of the relative values of each importance 

factor. 
A Index number of most important factor. 

C Array of relative values of each alternative with 

respect to each importance factor. 
T Decision category (l=item, 2=course of action, 

3=yes or no). 
T$ String name of decision category. 

E$ String to signal the end of an input data list. 

J,K Loop indices. 

R$ User reply string. 

Q,N1,N2 Work variables. 
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D Array of each alternative's value. 

MX Maximum value of all alternatives. 

DF Rating difference between best two alternatives. 

Z Array of the relative rankings of each alternative. 

SUGGESTED PROJECTS 

1 . Allow the user to review his numerical input and modify it if 
desired. 

2. Insights into a decision can often be gained by a sensitivity 
analysis. This involves running the program a number of times 
for the same decision. Each time, one input value is changed 
(usually the one you are least confident about). By seeing 
how the results change, you can determine which factors are 
the most important. Currently, this requires a complete re- 
running of the program each time. Modify the program to 
allow a change of input after the regular output is produced. 
Then recalculate the results based on the new values. (Note 
that many input arrays are clobbered once all the input is 
given. This modification will require saving the original input 
in new arrays so that it can be reviewed later.) 
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LOAN 



PURPOSE 

One of the most frustrating things about borrowing money 
from a bank (or credit union or Savings and Loan) is that it's 
not easy to fully evaluate your options. When you are borrowing 
from a credit union to buy a new car, you might have the choice 
of a thirty-six or a forty-eight month repayment period. When 
buying a house, you can sometimes get a slightly lower interest 
rate for your loan if you can come up with a larger down pay- 
ment. Which option is best for you? How will the monthly 
payment be affected? Will there be much difference in how fast 
the principal of the loan decreases; How much of each payment 
will be for interest, which is tax-deductible? 

You need to know the answers to all these questions to make 
the best decision. This program gives you the information you 
need. 

HOW TO USE IT 

The program first asks you the size of the loan you are con- 
sidering. Only whole dollar amounts are allowed— no pennies. 
Loans of ten million dollars or more are rejected (you can 
afford to hire an investment counselor if you want to borrow 
that much). Then you are asked the yearly interest rate for the 
loan. Enter this number as a percentage, such as "10.8". Next, 
you are asked to give the period of the loan in months. For a five 
year loan, enter 60. For a thirty year mortgage, enter 360. The 
program then displays this information for you and calculates 
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the monthly payment that will cause the loan to be paid off 
with equal payments each month over the life of the loan. 

At this point you have four options. First, you can show a 
monthly analysis. This displays a month-by-month breakdown, 
showing the state of the loan after each payment. The four 
columns of data shown for each month are the payment number 
(or mqnth number) of the loan, the remaining balance of the 
loan after that payment, the amount of that payment that was 
interest, and the accumulated interest paid to date. Sixteen lines 
of data are displayed on the screen, and then you can either 
press the T key to get the final totals for the loan, or any other 
key to get the data for the next sixteen months of the loan. 

The second option is overriding the monthly payment. It is 
a common practice with second mortgage loans to make smaller 
monthly payments each month with a large "balloon" payment 
as the final payment. You can use this second option to try 
various monthly payments to see how they affect that big pay- 
ment at the end. After overriding the monthly payment, you 
will want to use the first option next to get a monthly analysis 
and final totals using the new monthly payment. 

The third option is to simply start over. You will generally 
use this option if you are just comparing what the different 
monthly payments would be for different loan possibilities. 
The fourth option ends the program. 

By the way, there is a chance that the monthly payment 
calculated by your lender will differ from the one calculated 
here by a penny or two. We like to think that this is because we 
are making a more accurate calculation. 

NOTE: SEE DISCLAIMER IN FRONT PART OF BOOK 



LOAN 



35 



SAMPLE RUN 



LOON CALCULATOR 



LOAN AMOUNT? 42808 

INTEREST RATE? 9.75 

LENGTH OF LOAN (MONTHS)? 368B 




The operator enters the three necessary pieces of information about his or 
her loan. 




The program responds with the monthly payment that will pay off the 
loan with equal payments over its life, then asks the operator what to do 
next. The operator asks for the monthly analysis. 
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The program responds with information about the first sixteen months of 
the loan, then waits. 



42000 FOR 368 MONTHS AT 9.75 PER CENT 

HONTH ~ISf!«Ncg G -S0NTH NTERr ; w : 

CALCULATING TOTALS... 
LAST PAYMENT - 358.11 
TOTAL PAVMENTS - 129895.26 
MONTHLY PAYMENT HAS 368.85 
PRESS ANY KEY TO CONTINUE 



The operator presses "T", and after a few seconds the program displays 
totalling information about the loan. 
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program listing 

100 rem: loan calculator 

110 rem! copyright 1978 by tom rugg and phil feldman 

120 BL$=" "tPRINT CHR*<147> 

130 print tab<8)*"l0an calculator" 

140 print:print:print 

150 input"loan amount" ja 

155 gosub 1000 : if a=0 then 150 

160 print: input" interest rate"jr 

170 print:input h length OF LOAN ( MONTHS >"»N 
180 r=abs<r>:n=int<n>:m=r/i20o:print 

190 GOSUB 800 

200 W=(l+M)tN 

210 P=< A*M*W )/< W-1 > 

220 P=INT<P*100+*9999):P=P/100 

230 print"monthly payment is"»p 
240 fp=p:print:print 
250 print-next action:" 

260 PRINT 

270 PRINT" 1 - SHOW MONTHLY ANALYSIS" 

280 PRINT" 2 - OVERRIDE MONTHLY PAYMENT" 

290 PRINT" 3 - START OVER" 

300 PRINT" 4 - END" 

310 INPUT C 

320 IF C=4 THEN END 

330 IF C=3 THEN 120 

340 IF C=2 THEN 400 

350 IF C=l THEN 440 

360 PRINT-CHOICES ARE If 2, 3, AND 4" 

370 GOTO 240 

400 PRINT J INPUT-MONTHLY PAYMENT" JP 

410 GOTO 240 

440 GOSUB 450JGOT0 510 

450 GOSUB 800 

460 PRINT TAB<7H"REMAINING"»TAB<20); 

470 PRINT" INTEREST " 

480 PRINT-MONTH BALANCE" $TAB< 21 )i 

490 print"m0nth to-bate" 

500 print {return 

510 b=a*ioo :tt=o :tp=o :l=o :p=p*ioo :r$= hh 

520 FOR J=l TO N 

530 T=M#B 

540 T=INT(T+.5> 

550 if j=n then p=b+t 

560 tp=tp+p:b=b-p+t:tt=tt+t 

570 if r$="t" then 660 
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580 W=BtG0SUB 900tB*=S* 

5?o w=t:gqsub ?oo:t$=s$ 

600 U=TTtG0SUB ?0OtTT*=S* 

610 PRINT JJTAB(5)5B*5T*»TT* 

620 L=L+ltIF L<16 THEN 660 

630 PRINT SPRINT" PRESS 'T' FOR TOTALS* OR" 

640 PRINT-ANY OTHER KEY FOR NEXT SCREEN" 

650 GET R$tIF R$="» THEN 650 

655 L=0tG0SUB 450 : 

IF R$="T" THEN PRINT-CALCULATING TOTALS..." 
660 NEXT J 

670 PRINT5PRINT"LAST PAYMENT ="*F7100 
690 PRINTtPRINT"TOTAL PAYMENTS ="»TP/100 
700 PRINTJPRINT"MONTHLY PAYMENT WAS'SFP 
710 PRINT JPRINT'TRESS ANY KEY TO CONTINUE" 
720 GET R$:iF R$=»" THEN 720 
730 P=FP:G0T0 240 
800 PRINT CHR*<147)f 

810 PRINT A» "FOR" »Nr" MONTHS AT";R»"PER CENT" 
820 PRINT 
830 RETURN 
900 W=INT(W> 

905 s*=str*< w kk=len< s* )-i :s*=mid$< S*,2,K ) 

910 IF K=l THEN S*=BL$+" .0"+S$:RETURN 

920 IF K=2 THEN S*=BL*+" ."+S*t RETURN 

930 Ii$=","+RIGHT$(S*»2) 

950 S$=LEFT*<S*»K-2)+D* 

960 S*=LEFT«< BL$» 10-K HS* 

970 RETURN 

1000 A=ABS<A)tA=INT(A) 

1010 IF A<10000000 THEN RETURN 

1020 PR I NT" TOO LARGE" 

1030 A=0t RETURN 

EASY CHANGES 

1 . The number of lines of data that are displayed on each screen 
when getting a monthly analysis can be changed by altering 
the constant 16 in statement 620. You might want only 
twelve payments shown at a time so you can see a year-by- 
year analysis. 

2. To include the monthly payment in the heading at the top of 
each screen of the monthly analysis, insert the foil owing line: 

815 IF FPOO THEN PRINT"MONTHLY PAYMENT IS";FP 
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MAIN ROUTINES 

1 20 - 170 Displays title. Gets loan information. 

200 - 230 Calculates and displays monthly payment. 

250-370 Asks for next action. Goes to corresponding 
routine. 

400 - 4 1 Gets override for monthly payment. 

440 - 730 Calculates and displays monthly analysis. 

800 - 830 Subroutine to clear screen and display data about 
the loan at the top. 

900 - 970 Subroutine to convert integer amount to fixed- 
length string with aligned decimal point. 

1 000 - 1 030 Edits loan amount (size and whole dollar). 

MAIN VARIABLES 

A Amount of loan. 

R Interest rate (percentage). 

N Length of loan (number of months). 

M Monthly interest rate (not percentage). 

W Work variable. 

P Monthly payment. 

FP First monthly payment. 

C Choice of next action. 

B Remaining balance of loan. 

TT Total interest to date. 

TP Total payments to date. 

L Number of lines of data on screen. 

R$ Reply from operator at keyboard. 

J Work variable for loops. 

T Monthly interest. 

B$ Remaining balance (string format). 

T$ Monthly interest (string format). 

TT$ Total interest to date (string format). 

S$ Work string variable for creating numbers with 

decimal point alignment. 

D$ Work variable used in building S$. 

K Work variable used in building S$. 
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SUGGESTED PROJECTS 

1 . Display a more comprehensive analysis of the loan along with 
the final totals. Show the ratio of total payments to the 
amount of the loan (TP divided by A), for example. 

2. Modify the program to show an analysis of resulting monthly 
payments for a range of interest rates and/or loan lengths 
near those provided by the operator. For example, if an 
interest rate of 9.5 percent was entered, display the monthly 
payments for 8.5, 9, 9.5, 10, and 10.5 percent. 



MILEAGE 



PURPOSE 

For many of us, automobile operating efficiency is a contin- 
ual concern. This program can help by keeping track of gasoline 
consumption, miles driven, and fuel mileage for a motor vehicle. 
It allows reading and writing data files with the cassette unit. 
Thus, a master data file may be retained and updated. The pro- 
gram computes mileage (miles per gallon or MPG) obtained 
after each gasoline fill-up. A running log of all information is 
maintained. This enables trends in vehicle operation efficiency 
to be easily checked. 

HOW TO USE IT 

The program requests the following data from the operator as 
a record of each gasoline fill-up: date, odometer reading, and 
number of gallons purchased. The most useful results will be 
obtained if entries are chronological and complete, with each 
entry representing a full gasoline fill-up. 

In order to use the cassette features, the operator must be 
able to position the tape correctly for both reading and writing. 
The simplest way to do this is to only record files at the begin- 
ning of a tape. One tape could certainly be used this way, with 
each file writing over the previous one. However, we suggest 
alternating between two physical tapes. This will insure a rea- 
sonably up-to-date back-up tape in case of any failure. 

The program operates from a central command mode. The 
operator requests branching to any one of five available subrou- 
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tines. When a subroutine completes execution, control returns 
to the command mode for any additional requests. A brief 
description of each subroutine now follows: 

1 ) READ OLD MASTER FILE 

This reads previously stored data from the cassette. Any data 
already in memory is deleted. During the read, the name of the 
data file and the total number of records read are displayed. 

2) INPUT FROM TERMINAL 

This allows data records to be entered directly from the 
terminal. This mode is used to provide additional information 
after a cassette read and to enter data for the first time. The 
program will prompt the operator for the required information 
and then let him verify that it was entered correctly. A response 
of "F" to the verification request signals that no more data is to 
be entered. 

3) WRITE NEW MASTER FILE 

This command causes the current data to be written on cas- 
sette. The program requests a name for the file. When later read, 
this name will be displayed, allowing verification of the correct 
data file. 

4) DISPLAY MILEAGE DATA 

This subroutine computes mileage (miles per gallon) from the 
available data. It formats all information and displays it in tabu- 
lar form. Numbers are rounded to the nearest tenth so that four 
columns of information can be displayed on one line. When 
data fills the screen, the user is prompted to press the RETURN 
key to continue the listing. When all data is displayed, pressing 
the RETURN key will re-enter command mode. 

5) TERMINATE PROGRAM 

Ends execution and returns the computer to BASIC. 

SAMPLE RUN 

RUN 

MILEAGE 

COMMANDS 

1 - READ OLD MASTER FILE FROM CASSETTE 

2 - INPUT DATA FROM TERMINAL 

3 - WRITE NEW MASTER FILE TO CASSETTE 
k - DISPLAY MILEAGE DATA 

5 - TERMINATE PROGRAM 
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ENTER COMMAND BY NUMBER? 2 

ENTER THE FOLLOWING DATA AS REQUESTED 

- DATE (E.G. 1/30/78) 

- ODOMETER READING (MILES) 

- # GALLONS BOUGHT 

DATE? 9/28/77 
ODOMETER? 51051.1 
# GALLONS? 14.6 

INPUT DATE: 9/28/77 
CHECK ODOMETER: 51051.1 
GALLONS: 14.6 

- IS INPUT OK ? - 
(Y-YES, N=NO, F=YES AND FINISHED)? Y 
DATE? 

(10 more entries are input) 



(Y=YES, N=NO, F=YES AND FINISHED)? F 

(the five commands are listed again) 

ENTER COMMAND BY NUMBER 4 

DATE 

9/28/77 

10/6/77 

10/17/77 

10/29/77 

11/5/77 

11/15/77 

11/26/77 

12/1/77 

12/9/77 

12/15/77 

12/23/77 



ODOMETER 


GALLONS 


MPG 


51051.1 


14.6 





51299.7 


13.8 


18 


51553.8 


13.1 


19.4 


51798 


13.7 


17.8 


52041.9 


13.3 


18.3 


52304.9 


14 


18.8 


52570.8 


13.7 


19.4 


52842.5 


14.6 


18.6 


53048.4 


11.8 


17.4 


53359.7 


14.7 


21.2 


53601.2 


13.3 


18.2 
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HIT RETURN KEY FOR COMMAND MODE 
(return key is pressed) 
(the five commands are listed again) 
ENTER COMMAND BY NUMBER? 3. 

1) POSITION CASSETTE TAPE FOR WRITING. 

2) PRESS THE CASSETTE STOP KEY. 

3) PRESS THE RETURN KEY WHEN READY. 

(above is duly done) 
NAME FOR FILE? V0LV077 

PRESS PLAY & RECORD ON TAPE #1 

(cassette play and record are pressed) 
OK 

(a subsequent run) 

ENTER COMMAND BY NUMBER? J. 

1) POSITION CASSETTE TAPE FOR READING. 

2) PRESS THE CASSETTE STOP KEY. 

3) PRESS THE RETURN KEY WHEN READY. 

(above is duly done) 

PRESS PLAY ON TAPE #1 

OK 

READING FILE: VOLV077 

11 DATA RECORDS READ 

PROGRAM LISTING 

100 REM A MILEAGE CALCULATOR 

110 REM COPYRIGHT 1978 BY PHIL FELDHAN AND TOM RUGG 

120 MW=60tMR=75tN=0 

130 DIM D*<MR)fD(MR)»G<«R)fM(HR) 

150 PRINT CHR*U47KPRINT TAB< 16)}CHR« IS )J "MILEAGE" I 

PRINTtPRINT"C0MHANDS" 
160 PRINT" 1 - READ OLD MASTER FILE FROM CASSETTE" 
170 PRINT" 2 - INPUT DATA FROM TERMINAL" 
180 PRINT" 3 - WRITE NEW MASTER FILE TO CASSETTE" 
190 PRINT" 4 - DISPLAY MILEAGE DATA" I 

PRINT" 5 - TERMINATE PROGRAM" {PRINT 
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200 INPUT" ENTER COMMAND BY NUMBER" JRJ 

IF R<1 OR R>5 THEN 150 
210 ON R GOSUB 250 » 300 » 500 » 600 » 800} GOTO 150 
250 R$="READING"}GQSUB 850 {OPEN 5*1*0} 

INPUT*5jT$}PRINT"READING FILE} " n$ 
255 INPUT#5fN:iF N>MR THEN 

PRINT"*** TOO MANY FILES ON TAPE" {END 
260 FOR J=l TO N:iNPUT#5»D«(J)fD(J)»G(J){ 

IF 64 AND ST THEN 900 
270 NEXTtPRINTJPRINT Hi" DATA RECORDS READ"} 

CLOSE 5}G0SUB 920 {RETURN 
300 IF N=MR THEN 470 

310 PRINT IPRINTENTER THE FOLLOWING DATA AS 
320 PRINT" - DATE (E.G. 1/30/78)" 
325 PRINT" - ODOMETER READING (MILES)" 
330 PRINT" - * GALLONS BOUGHT" 

340 N=N+1 {PRINT I INPUT" DATE" J R* *. R$=LEFT$< R* r 8 ) } D$( N )=R$ 
350 INPUT-ODOMETER" »R{ IF R<0 OR R>999999 THEN 350 
355 GOSUB 940}D(N)=R 

360 INPUT"* GALLONS" JRt IF R<0 OR R>9999 THEN 360 
370 GOSUB 940 tG<N)=Ri print: 

PRINT TAB* 3 H "INPUT DATE} "5D$(N) 
380 PRINT TAB(3)»"CHECK ODOMETER}" JD( N )I 

PRINT TAB( 13 )J "GALLONS! "jG(N) 
400 PRINTJPRINT SPCQO)*" - IS INPUT OK ? -"{PRINT 
410 INPUT" (Y=YES» N=NO? F=YES AND FINISHED)"* 

R*:R*=LEFT*(Rtfl) 
420 IF R$="N" THEN N=N-1 }PRINT} 

PRINT" REDO LAST DATA" {GOTO 340 
430 IF R*="F" THEN RETURN 
440 IF R$<>"Y" THEN 400 
450 IF N=MR THEN 470 
460 GOTO 340 
470 PRINTJPRINT"*** NO MORE DATA ALLOWED"} 

GOSUB 920} RETURN 
500 IF N<1 THEN PRINT }PRINT"«* NO DATA TO WRITE"} 

GOSUB 920 '.RETURN 
510 R$="WRITING"}GGSUB 850 SPRINT J 

INPUT"NAME FOR FILE" tT*JK=N{ IF N>MW THEN K=MW 
520 OPEN 5»l»UPRINT#5fT*:PRINT#5»K:K=i:L=N 
530 IF N>MW THEN K=N-MW+1 {PRINT" - ONLY LAST"? 

MU»"VALUES WILL BE WRITTEN" 
540 FOR J=K TO l:PRINT#5»D*< J)JPRINT#5»D< J >5 

PRINT#5»G(J) 
550 POKE 59411 i 53 tZ=TI 
560 IF TI-Z<5 THEN 560 
570 POKE 59411*61SNEXT}CL0SE 5IRETURN 
600 IF N<=1 THEN PRINT {PRINT"*** NOT ENOUGH DATA"} 
GOSUB 920 {RETURN 
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610 h(d=o:for j=2 to n: 

if g<j)=0 or g(j-1)=0 then f-k j )=0.gotq 640 

620 R=(D<J)-D(J-l))/G<J>;iF R<0 OR R>9999 THEN R=0 
630 GOSUB ?40:M(.J)=R 
640 NEXTtK=-17tL=0 

650 K=K+18tL=L+18JIF L>N THEN L=N 
660 PRINT CHRSU47)} 

" DATE ODOMETER GALLONS HPG" 
670 B=2IU=4!G03UB 750 tB=4JU=8: GOSUB 750JB=3S 

U=7IGQSUB 750iB=6!U=3*GOSUB 750 
680 PRINT"" 5F0R J=K TO LIPRINT D*< J )» JR=D( J )JB=16I 

GOSUB 770 
690 R=G<.J)tB=25tG0SUB 770tR=h< J>:B=365GOSUB 770 : 

PRINT"" INEX'H PRINT 
700 IF L=N THEN PRINT"HIT RETURN KEY FOR 

COMMAND MODE" {GOSUB 960 J RETURN 
710 PRINT"HIT RETURN KEY TO CONTINUE" IGOSUB 960 : 

GOTO 650 
750 PRINT SPC(B)J{F0R J=l TO UJPRINT CHR$< 197 H { 

NEXT t RETURN 
770 Q=LEN(STR*<INT<R>)>:iF R>0 AND R<1 THEN Q=I 
780 PRINT TAB(B-Q)JR5 {RETURN 
800 END 

850 PRINTJPRINT"!) POSITION CASSETTE TAPE FOR "}R$f H ," 
860 PRINT"2) PRESS THE CASSETTE STOP KEY," 
870 PRINT"3) PRESS THE RETURN KEY UHEN READY*": 

GOSUB 9601 RETURN 
900 PRINT! PR I NT"*** FATAL ERROR IN CASSETTE READ"iSTGP 
920 FOR Q=l TO 3000INEXTJRETURN 
940 R=R*10+» 5 :R=INT(R)/10: RETURN 
960 GET R*:iF R*="" THEN 960 
970 RETURN 

EASY CHANGES 

1 . Changing the value of MR in line 1 20 alters the maximum 
number of data records that the program allows. You may 
need to make MR smaller if you are running out of memory, 
or larger to accommodate additional data. MR can only be 
about 15 with a 4K PET. For typical data (such as in the 
sample run), an 8K PET will allow about 150 data records. 
To adjust MR, simply change its value in line 120 from its 
current value of 75 to whatever you choose. 

2. Currently, the program will write a maximum of sixty data 
records during the cassette write operation. This number can 
be altered by changing the value of MW in line 1 20 from its 
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value of sixty to whatever you choose. Only the most recent 
MW records will be written to tape if MW is less than the 
number of available records when a cassette write is 
issued. If the number of available records is less than MW, 
then all the records will be written. The value of MW should 
not be larger than the value of MR. 
3. If you do not care about seeing the dates, they can be removed 
easily. This saves a little typing on data entry and also allows 
more data records in a given amount of memory. To remove 
this feature, delete line 320 entirely and change line 340 to 
read 

340 N=N+1 :PRINT:D$(N)=" " 

MAIN ROUTINES 

1 20 - 130 Dimensioning and variable initialization. 

150-210 Command mode. Displays available subroutines 

and branches to the operator's choice. 

250 - 270 Reads data from the cassette unit. 

300 - 470 Accepts terminal input. 

500 - 570 Writes data to the cassette unit. 

600 - 780 Calculates mileage and displays all information. 

800 Terminates execution. 

850-900 Displays messages for cassette operation. 

920 Delay loop. 

940 Rounds numbers to nearest tenth. 

960 - 970 Tests for operator response. 

MAIN VARIABLES 

MW Maximum number of data records to write. 

MR Maximum number of data records in memory. 

N Current number of data records in memory. 

D$ Array of dates. 

D Array of odometer readings. 

G Array of gallons per fill-up. 

M Array of mileage per fill-up. 

R Command mode input, also pre-rounded numbers 

sent to the rounding routine. 

R$ Temporary string variable, holds operator's input. 

T$ Data file name used in reading or writing with cas- 

sette. 
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J Work variable, loop index. 

K,L Loop bounds. 

B Number of blanks used in display formatting. 

U Number of underlines used in display formatting. 

Q String length used in display formatting. 

Z Cassette delay time during writing. 

SUGGESTED PROJECTS 

1 . Calculate and print the average MPG over the whole data file. 
The total miles driven is D(N) - D(l). The total gallons used 
is the sum of G(J) for J=2 to N. This calculation can be done 
at the end of the DISPLAY MILEAGE subroutine. Program- 
ming should be done between lines 690 and 700. 

2. Allow the user the option to write to cassette only the entries 
since a certain date. Ask which date and search the D$ array 
for it. Then set MW to the appropriate number of records to 
write. These changes are to be made between lines 500 and 
5 1 at the beginning of the subroutine to write on cassette. 

3. Add a new command option to verify a data file just written 
to cassette. It would read the tape and compare it to the 
data already in memory. 

4. Add an option to do statistical calculations over a given sub- 
set of the data. The operator inputs a beginning and ending 
date. He is then shown things like average MPG, total miles 
driven, total gallons purchased, etc.; all computed only over 
the range requested. 

5. Write a subroutine to graphically display MPG. A bar graph 
might work well. 

6. Add a new parameter in each data record—the cost of each 
fill-up. Then compute things like the total cost of gasoline, 
miles/dollar, etc. 



STOPWATCH 



PURPOSE 

If you are only using your PET for making calculations or 
other "normal" computer work, you are missing out on some- 
thing. The PET has a very accurate internal timer, which can be 
very useful. This program uses it in a very obvious way-as a 
stopwatch. Using a computer as a stopwatch gives you the 
advantage of leaving the last few timings on the screen for 
reference while you are making the next timing. Of course, the 
computer is "smart" enough to allow you to get "lap" times as 
well as the final time. 

HOW TO USE IT 

The opening messages from the program show you your two 
options. Pressing the S key causes the stopwatch to start (or 
restart, if you had already started it). Pressing the F key causes 
the stopwatch program to show you the time since the S key 
was pressed. Pressing the F key a second time causes the pro- 
gram to show you both the time since the start and the time 
since the last F was pressed. This lets you see interim or "lap" 
times. 

For example, suppose you want to time a one-mile race that 
is run as four laps around a quarter-mile track. Before the race 
begins, start the program running with the RUN command. 
When the starting gun is fired to start the race, press the S key. 
At the end of the first lap around the track, press the F key. 
This causes the program to show the time since the race started. 
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When the second lap is completed, press the F key again. The 
program will show the time since the start and the time of the 
second lap. Press the F key again when the third and fourth laps 
are finished to get the time since start and lap times. Of course, 
the time since start at the end of the fourth lap is the final time 
of the race, even though the stopwatch keeps running. At that 
time, you can either press S to restart the stopwatch (when the 
next race begins) or press the STOP key to stop the program. 
The internal timer of the PET is accurate to one sixtieth 
(1/60) of a second. The program displays the time as though it 
is accurate to .01 seconds. As a result, the second decimal place 
is not precise. The actual time is within plus or minus .02 
seconds of the time that is shown. Also, because of the compu- 
tation time required to display each timing, wait at least .4 
seconds between consecutive F suppressions. 

SAMPLE RUN 



STOPWATCH 



f - FINISH < INTERIM OR FINAL) 



SINCE START - 1 MINUTES, 19.36 SECONDS 

INCE START - 2 MINUTES. .93 SECONDS 
INCE LAST 'F' » 41.56 SECONDS 



First the operator presses "S" to start the stopwatch. Then, after about 
one minute and 19 seconds, he or she presses "F". After another 41.56 
seconds, "F" is pressed again. 
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program listing 

100 rem: stopwatch 

110 rem: copyright 1978 by tom rugg and phil feldman 

120 print chr$u47> 

130 PRINT TAB<12>;"ST0PUATCH'tPRINTtPRINT 

140 PRINT" S = START OR RESTART" 

150 PRINT" F = FINISH (INTERIM OR FINAL)" 

160 PRINTJPRINT"? "i 

170 GET R$:iF R*="" THEN 170 

180 W=TI {PRINT R* 

190 IF R$="S" THEN 300 

200 IF R*="F" THEN 400 

210 GOTO 170 

300 l=w:s=u:print b started" 

310 GOTO 160 

400 j=u-s:gosub 500 

410 PRINT"SINCE start ="?R* 

420 IF S=L THEN L=WJGOTO 160 

430 J=W-LfGOSUB 500 

440 PRINT-SINCE LAST 'F' ="»R$ 

450 L=U:GOT0 160 

500 j=j/60ij=int< ioo*j >:j=j/ioo:r*=" 

510 IF -J>60 THEN 530 

520 R*=Rt+STR*(J)+' SECONDS" {RETURN 

530 K=INTC J/60 >{J=J-< K*60 )t J=INT( 100*J )t J=J/100 

540 R*=STR*(K)+" MINUTES»" {GOTO 520 



EASY CHANGES 

1 . To allow any key to act like an F (except S), change line 200 
to read 

200 GOTO 400 

2. To always display the time in seconds (instead of minutes 
and seconds when the time is greater than 60 seconds), delete 
line 5 10. 

3. To eliminate blank lines on the screen (thus allowing more 
timings to be retained on the screen), eliminate the first 
PRINT and colon on line 160. 

4. To display the time to the nearest tenth of a second (instead 
of the nearest hundredth), change the four constant values of 
100 in lines 500 and 530 to 10. 
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MAIN ROUTINES 

1 20 - 150 Displays the title and two options. 

1 60 - 1 70 Displays question mark and waits for a key to be 

pressed. 
1 80 - 210 Saves time of key suppression. Checks which key 

was pressed. 
300 - 3 1 Saves starting time and displays STARTED. 
400 - 450 Displays total and lap times. 
500 - 540 Subroutine to convert "jiffies" in J into minutes 

and seconds in R$. 

MAIN VARIABLES 

R$ Keyboard character pressed by operator. Also 

used when displaying minutes and seconds as a 
string. 

W Work variable for saving current time. 

L Time that last S or F was pressed. 

S Starting time. 

J Elapsed time (in jiffies) to be displayed. 

K Number of minutes to be displayed when elapsed 

time is greater than 60 seconds. 

SUGGESTED PROJECTS 

1 . Instead of displaying only the last lap time, display the last 
two or three lap times. Or, display all lap times since the 
start by saving each time in an array. Allow for at least 
twenty entries. 

2. Allow for the possibility of the time automatically resetting 
to zero during a timing (by passing midnight or 24 hours 
since the PET was turned on). Add 24 hours worth of jiffies 
to W if W is less than S. 



Section 2 
Educational Programs 



INTRODUCTION TO EDUCATION PROGRAMS 

Education is one area where computers are certain to have 
more and more impact. Though a computer cannot completely 
replace a human teacher, the machine does have certain advan- 
tages. It is ready anytime you are, allows you to go at your own 
pace, handles rote drill effortlessly, and is devoid of any person- 
ality conflicts. 

With a good software library, the PET can be a valuable learning 
center in the school or at home. Here are six programs to get 
you started. 

Mathematics is certainly a "natural" subject for computers. 
NUMBERS is designed for pre-school children. While familiar- 
izing youngsters with computers, it provides an entertaining 
way for them to learn numbers and elementary counting. 
ARITHMETIC is aimed at older, grade school students. It pro- 
vides drill in various kinds of math problems. The child can 
adjust the difficulty factors, allowing the program to be useful 
for several years. 

By no means is the PET restricted to mathematical disciplines. 
We include two programs designed to improve your word skills. 
VOCAB will help you expand your vocabulary. TACHIST turns 
the PET into a reading clinic, helping you to improve your 
reading speed. 

Do you have trouble familiarizing yourself with the increas- 
ingly prevalent metric system? METRIC is the answer. 

Need help learning a certain subject? FLASHCARD allows 
you to create your own "computer flashcards." Then you can 
drill yourself until you get it right. 
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ARITHMETIC 



PURPOSE 

ARITHMETIC provides mathematics drills for grade school 
children. The student can request problems in addition, sub- 
traction, or multiplication from the program. Also, he or she 
may ask that the problems be easy, medium, or hard. The pro- 
gram should be useful to a child over an extended period of 
time. He can progress naturally to a harder category of problems 
when he begins to regularly perform well at one level. The diffi- 
culty and types of problems encompass those normally en- 
countered by school children between the ages of six and ten. 

The problems are constructed randomly within the con- 
straints imposed by the degree of difficulty selected. This gives 
the student fresh practice each time the program is used. After 
entering answers, he is told whether he was right or wrong. The 
correct answers are also displayed. 

HOW TO USE IT 

To begin, the student must indicate what type of problem he 
wishes to do. The program requests an input of 1, 2, or 3 to 
indicate addition, subtraction, or multiplication, respectively. It 
then asks whether easy, medium, or hard problems are desired. 
Again an input of 1 , 2, or 3 is required. 

Now the screen will clear and five problems of the desired 
type will be displayed. The user now begins to enter his answers 
to each problem. 
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A question mark is used to prompt the user for each digit of 
the answer, one digit at a time. This is done moving right to left, 
the way arithmetic problems are naturally solved. 

To start each problem, the question mark will appear in the 
spot for the rightmost (or units column) digit of the answer. 
When the key for a digit from - 9 is pressed, that digit will 
replace the question mark on the screen. The question mark 
moves to the immediate left waiting for a digit for the "tens" 
column. 

Digits are entered in this right to left manner until the com- 
plete answer has been input. Then the RETURN key must be 
pressed. This will end the answer to the current problem and 
move the question mark to begin the answer for the next 
question. 

If the RETURN key is pressed to begin a problem, an answer 
of zero is assumed intended. No problems created by this pro- 
gram have answers of more than three digits. If a four-digit 
answer is given, the program will accept the answer, but then go 
immediately to the next problem. Answers to the problems are 
never negative. 

The program will display the correct answers to the five prob- 
lems on the screen after the student has entered his five answers. 
The message "RIGHT!" or "WRONG!" will also be displayed 
below each problem. 

Then the message "HIT ANY KEY TO CONTINUE" will be 
displayed. After the key is pressed, a new set of five problems 
of the same type will be presented. 

This continues until twenty problems have been worked. 
Before ending, the program shows what the student's perform- 
ance has been. This is expressed as the number of problems 
solved correctly and also as the percentage of problems solved 
correctly. 
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SAMPLE RUN 




The operator chooses to do hard addition problems. 




The initial set of 5 problems is presented. With a question mark, the pro- 
gram prompts the operator for the answer to the first problem. 
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The operator has entered his or her five answers. The program displays the 
correct answers and indicates whether or not each problem was solved 
correctly. The program waits for the operator to hit any key in order to 
continue with the next set of five problems. 



PROGRAM LISTING 



100 
110 
150 
160 
170 
180 
200 

210 
220 
230 
240 
250 
260 
270 

280 
290 
300 



REM ARITHMETIC 

REM COPYRIGHT 1978 BY PHIL FELBMAN AMD TOM RUGG 

S=32768tND=0:R=RNrK-TI) 

DIM A<5)»B<5hC<5)>G<5> 

NP=20 

G0SUB 910 

PRINT t PRINT! 

PRINT" WHAT TYPE 

PRINT TAB(5H"1 

PRINT TAB<5>»"2 

PRINT TAB<5)>"3 

PRINT?PRINT"UHICH TYPE (If 

GET R$JT=VAL(R$)tIF T<1 OR 



OF PROBLEM SHALL WE D0?"tPRINT 

- ADDITION". 

- SUBTRACTION" 

- MULTIPLICATION" 
OR 3) 

T>3 THEN 



?» 



PRINT CHR*(157)J"-"JT 
PRINTJFOR J=l TO 39iPRINT"="r{NEXT;PRINTtPRINT: 
PRINT"WHAT KIND SHALL WE DO" 
PRINT1PRINT TAB<5>*"1 - EASY PROBLEMS- 
PRINT TAB<5>;"2 - MEDIUM PROBLEMS" 
PRINT TAB<5)?"3 - HARD PROBLEMS" 
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310 PRINTtPRINT "WHAT KIND (1, 2> OR 3) ?"J 

320 GET R${D=VAL(R$){IF D<1 OR D>3 THEN 320 

330 PRINT CHR$<157>r'- M jD 

350 ON D GOTO 360 1 370>3?0 

360 GOSUB 940:GOSUB 920 {GOSUB 930:G0T0 400 

370 GOSUB 940 J GOSUB 930 J IF T=3 THEN GOSUB 960 { 

GOSUB 920 {GOTO 400 
380 IF T<>3 THEN GOSUB 950JGOSUB 920 {GOTO 400 
390 GOSUB 9505 GOSUB 920 J GOSUB 9305 

IF T=3 THEN GOSUB 940 J GOSUB 930 
400 IF T<>2 THEN 450 
410 FOR J=l TO 5 

420 IF B<J»C(.J> THEN R=C< J ){C< J >=B< J ){B( J )=R 
430 NEXT 

450 GOSUB 1000 {GOSUB 910 

600 Y=12JF0R J=l TO 5{X=-4+J*8{G0SUB 1100 {NEXT 
610 FOR K=l TO 5{X=-4+K*8{G0SUB 800 {G(K)=N{ NEXT 
620 X=17JY=16{G0SUB 1200{PRINT"ANSWERS" 
630 Y=18!F0R J=l TO 5{X=-4+J*8{G0SUB 1400 {NEXT 
640 Y=20tF0R J=l TO 5{X=-7+J*8IG0SUB 1200 
650 IF A(J)OG(J) THEN PRINT CHR$< 18 ) i "WRONG! "{ 

GOTO 670 
660 PRINT"RIGHT ! " !NR=NR+1 
670 NEXT 5F0R K=l TO 9 {GET R*{NEXT 
680 PRINT{PRINTIPRINT"HIT ANY KEY TO CONTINUE" 
690 GET R$JIF Rf="" THEN 690 
700 FOR J=l TO 10 {GET R${NEXT 
710 ND=ND+5{IF ND<NP THEN GOSUB 910 J GOTO 350 
720 GOSUB 1500 
730 END 

800 N=0{M=1JF0R J=l TO 10 {GET RHJNEXT 
810 P=63 {GOSUB 900 
820 GET R${IF R$="" THEN 820 
825 A=ASC(R*)!IF A=13 AND M=l THEN P=48{ 

GOSUB 900 {RETURN 
830 IF A=13 THEN P=32JG0SUB 900 {RETURN 
840 V=VAL(R$)!IF V=0 AND A<>48 THEN 820 
850 P=48+VIG0SUB 900{N=N+M*V{M=M*10 
860 IF H>1000 THEN RETURN 
870 X=X"1JGOTO 810 
900 POKE S+X+40*YfPJRETURN 
910 PRINT CHR*U47)5CHR*<13>?TAB<10>?CHR$< 

18)>"A R I T H H E T I C" {RETURN 
920 FOR K=l TO 5{C(K)=INT(RND(1)*(H-L+1))+L{ 

NEXT {RETURN 
930 FOR K=l TO 5JB< K )=INT<RND( 1 >*<H-LH ) )+LJ 

NEXT {RETURN 
940 H=9{L=0{ RETURN 
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950 h=99:l=01return 
?60 h=25:l=i:return 

1000 ON T GOTO 1010* 1020 r 1030 

1010 FOR J=l to 5:au>=b< j hcuknext: return 

1020 FOR J=l TO 5JA(J)=C<J)-B(J)JNEXT*.RETURN 
1030 FOR J=l TO 5:A<J)=C(J)*B<J)iNEXT:RETURN 
1100 GOSUB 1200:CU=5:CL=2{GOSUB 1300 
1110 IF MJK10 THEN PRINT CHR$<32>J 

1120 print ccjkgosub 1200 :cu=3:cl=3:gosub 1300: 

IF T=l THEN PRINT CHR*<43)J 
1130 IF T=2 THEN PRINT CHR*(45)J 
1140 IF T=3 THEN PRINT CHR*<214)r 
1150 IF BUK10 THEN PRINT CHR*<32>> 
1160 PRINT B<JKGOSUB 1200:CU=2tCL=3tGOSUB 1300! 

FOR K=l TO 4JPRINT CHR$<164)» 

1170 nextjreturn 

1200 PRINT CHR*<1?)»:F0R K=l TO XJPRINT CHR$<29)5J 

NEXT? FOR K=l TO Y 
1210 PRINT CHR$(17)»JNEXTtRETURN 
1300 FOR K=l TO CUtPRINT CHR$< 145 )i 5NEXT 
1310 FOR K=l TO CLIPRINT CHR*< 157 )i JNEXTJRETURN 
1400 GOSUB 1200!CL=i:iF A(J)>9 THEN CL=2 
1410 IF A(J»99 THEN CL=3 
1420 IF A(J»999 THEN CL=4 
1430 FOR K=l TO CUPRINT CHR*< 157 )J tNEXT 
1440 PRINT A(J):RETURN 
1500 GOSUB 910tPRINTtPRINT 
1510 PRINT"YOU GOT"JNRJ" RIGHT 
1520 PRINTOUT 0F"?NP5" PROBLEMS 
1530 P=NR/NP*100: 
1540 PRINTtPRIHT-THAT'S'SP?" PERCENT CORRECT" tRETURN 

EASY CHANGES 

1 . The program currently does twenty problems per session. 
You can change this number by altering the variable NP in 
line 170. For example, 

170NP=10 

will cause the program to do only ten problems per session. 
The value of NP should be kept a positive multiple of five. 

2. Zero is currently allowed as a possible problem operand. If 
you do not wish to allow this, change lines 940 and 950 to 
read as follows: 

940 H= 9 :L=1: RETURN 

950 H=99:L=1: RETURN 
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MAIN ROUTINES 

1 50 - 1 80 Initializes constants, displays header. 

200 - 330 Asks operator for type of problems desired. 

350 - 450 Sets A, B, C arrays, clears screen. 

600-730 Mainline routine-displays problems, gets opera- 
tor's answers, displays correct answers and user's 
performance. 

800 - 870 Subroutine to get and display user's answers. 

900 Subroutine to poke byte P into screen position 

X, Y. 

9 1 Subroutine to clear screen and display title. 

920-930 Subroutine to set B, C arrays. 

940 - 960 Subroutine to set L, H. 

1000 - 1030 Subroutine to calculate A array from B, C arrays. 

1 1 00 - 1170 Subroutine to display problems. 

1 200 - 1 2 1 Subroutine to move cursor to screen position X, Y. 

1 300 - 1310 Subroutine to move cursor CU lines down and CL 
spaces left. 

1400 - 1440 Subroutine to display the correct answers. 

1 500 - 1 540 Subroutine to display operator's performance. 

MAIN VARIABLES 

NP Number of problems to do in the session. 

ND Number of problems done. 

NR Number of correct answers given. 

C,B,A Arrays of top operand, bottom operand, and cor- 

rect answer to each problem. 

N Operator's answer to current problem. 

G Array of operator's answers. 

T Type of problems requested (l=addition, 2=sub- 

traction, 3=multiplication). 

D Kind of problem requested (l=easy, 2=medium, 

3=hard). 

H,L Highest, lowest integers to allow as problem oper- 

ands. 

M Answer column being worked on. 

R$ Operator's input character. 

V Value of R$. 

A Ascii value of R$. 

X,Y Horizontal, vertical screen position of cursor. 
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S Starting address of CRT memory area. 

R Work variable. 

J,K Loop indices. 

P Poke character, also percentage correct. 

CU,CL Number of positions to move cursor up, left. 

SUGGESTED PROJECTS 

1 . Keep track of problems missed and repeat them quickly for 
additional practice. 

2. No negative operands or answers are currently allowed. Re- 
write the problem generation routines and the operator's 
answer routines to allow the possibility of negative answers. 

3. The answers are now restricted to three-digit numbers. How- 
ever, the program will work fine for four-digit numbers if the 
operands of the problems were allowed to be large enough. 
Dig into the routines at lines 350 - 450 and 940 - 960. See 
how they work and then modify them to allow possible four- 
digit answers. 

4. The operator cannot currently correct any mistakes he makes 
while typing in his answers. Modify the program to allow him 
to do so. 

5. Modify the program to allow problems in division. 
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PURPOSE 

There are certain things that the human mind is capable of 
learning only through repetition. Not many people can remem- 
ber the multiplication tables after their first exposure, for 
example. The same applies to learning the vocabulary of a foreign 
language, the capital cities of the fifty states, or famous dates in 
history. The best way to learn them is to simply review them 
over and over until you have them memorized. 

A common technique for doing this involves the use of flash- 
cards. You write one half of the two related pieces of informa- 
tion on one side of a card, and the other half on the other side. 
After creating a set of these cards, you can drill yourself on 
them over and over until you always remember what's on the 
other side of each card. 

But why waste precious natural resources by using cards? 
Use your computer instead. This program lets you create 
flashcards, drill using them, and save them on cassette tape for 
later review. 

HOW TO USE IT 

The program gives you six options. The first time you run 
it, you'll want to enter new flashcards, so you should reply with 
number 1. 

To create the cards, the program asks you for each side of 
each flashcard, one at a time. First enter side one of the first 
card, and so on. As you enter the data, be careful not to use any 
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commas or colons unless the entire expression is enclosed in 
quotes. Also, be careful not to enter such a long stream of data 
that it goes to the next line on the screen. This can cause 
erroneous results. 

At any time, you can enter the keyword "*BACK" to correct 
an erroneous entry. This causes the program to back up and ask 
you for'the previous entry again. 

As the program is currently written, you must enter at least 
five flashcards, and no more than twenty-five. We will show you 
how to change these limits in the "Easy Changes" section. 
When you have entered all the flashcards you want, enter 
"*END" instead of side one of the next card. This puts the pro- 
gram back into "command" mode to ask you what to do next. 
If you want to quiz yourself on the cards you just entered, 
respond with the number 4. 

The program flashes one side of one card on the screen for 
you. Both are chosen at random—the side and the card. Your 
job is to respond with the other side. If you enter it correctly, 
the program says "RIGHT!" If not, it tells you the correct 
response. In either event, the program continues by picking 
another side and card at random. This continues until you 
respond with "*END", which tells the program you do not 
want to drill any more. It will then tell you how many you got 
right out of the number you attempted, as well as the percentage, 
and then return to command mode. 

During the drill sequence, by the way, the program will not 
repeat a card that was used in the previous four questions (i.e., 
one less than the minimum number of cards you can enter). 
To save a set of flashcards on cassette, use option number 3. 
The program will tell you to put the cassette into position and 
then enter a name for the file. You should give it a good descrip- 
tive name in order to remember what kind of flashcards they 
are in the future. Be sure to write the name on the cassette, too. 
After the flashcards have been copied to the cassette, the pro- 
gram will say "DONE" and return to the command mode. 
The other commands are easily understood, so we will just 
explain them briefly. A little experimentation will show you 
how they work. 

Command number 5 lets you verify that the set of flashcards 
just saved on tape are okay. You do not have to enter the name 
of the file— the same name is used that was used to save the file. 
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Command number 2 is used to load a flashcard tape that has 
been previously saved. The program asks for the name of the 
file, so it can scan the cassette until it finds the one you asked 
for. If you don't care or don't know the name of the file, you 
can load the first file that is found on the cassette by entering 
a null string for the name (two consecutive double quote 
marks). 

Command number 6 ends the program. 

SAMPLE RUN 

"""" FLASHCARD PROGRAM """:< 

OPTIONS 

1 -- ENTER NEW FLASHCARDS 

2 — LOAD A FLASHCARD TAPE 

3 -- SAVE CURRENT SET ON TAPE 
^ — DRILL ON CURRENT SET 

5 -- VERIFY FLASHCARDS ON TAPE 

6 -- END PROGRAM 
? 1 

SIDE ONE OF CARD NO. 1 
? THE PEN 
SIDE TWO 
? LA PLUMA 

SIDE ONE OF CARD NO. 2 

? THE DOOR 

SIDE TWO 

? LA PUERTA 

SIDE ONE OF CARD NO. 3 

? THE SCHOOL 

SIDE TWO 

? LA ESCUELA 

SIDE ONE OF CARD NO.' k 
? THE FLOOR 
SIDE TWO 
? EL SUELO 
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SIDE ONE OF CARD NO. 5 

? THE STORE 

SIDE TWO 

? LA TIENDRA 

SIDE ONE OF CARD NO. 6 
? "END 

OPTIONS 

1 -- ENTER NEW FLASHCARDS 

2 -- LOAD A FLASHCARD TAPE 

3 -- SAVE CURRENT SET ON TAPE 
<t — DRILL ON CURRENT SET 

5 -- VERIFY FLASHCARDS ON TAPE 

6 -- END PROGRAM 

? ft 

TELL ME WHAT'S ON THE 

OTHER SIDE OF EACH CARD AS I SHOW IT. 

THE DOOR 

? LA PUERTA 

RIGHTl 

LA PLUMA 
? THE PEN 

RIGHT! 

THE FLOOR 

? LA ESCUELA 

NO, THE CORRECT RESPONSE IS 
EL SUELO 

THE SCHOOL 
? LA ESCUELA 

RIGHT! 

LA TIENDRA 
? "END 
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3 RIGHT OUT OF if 

75 PER CENT 

PROGRAM LISTING 

100 REM: FLASHCARD 

110 REMt COPYRIGHT 1978 BY TOM RUGG AND PHIL FELDMAN 

130 L=25;M=5 

140 DIM F*a>»B$<L)rP(M-l) 

150 R=RND(-TI> 

160 PRINT CHR*(147> 

170 PRINT"**** FLASHCARD PROGRAM ****" 

180 GOTO 2000 

190 k=i:w=o:c=o: print 

200 print-side one of card no.sktlnput f$< k > 

210 IF LEFT*<F$<K>r4>="*END" THEN 280 
220 IF LEFT*<F$<K>,5K>"*BACK" THEN 230 
222 K=K-i:iF K<1 THEN K=l 

225 print:print"backing up-:goto 200 
230 print"side two" j input b*< k > 

240 IF LEFT$(B$(K)»5)="*BACK" THEN 225 

250 PRINT 

260 K=K+i:iF K<=L THEN 200 

270 print "that's all there's room for." 

280 print:print:k=k-i:goto 2000 

290 if k>=m then 310 

300 print"that's only" ;k$"cards. min. is"im:goto 2000 

310 print:print"tell me what's on the" 

320 print"other side of each card as i show it." 

330 PRINT 

340 R=INT(K*RND(1))+1 

350 FOR J=0 TO M-2 

360 IF P(J)=R THEN 340 

370 NEXT 

390 J=RNDU>:iF J>.5 THEN 420 

400 PRINT F$(R):C*=B*(R) 

410 GOTO 430 

420 PRINT B$«R):C*=F*(R) 

430 INPUT R$ 

440 IF LEFT$CR* J 4)="*END" THEN 600 

450 PRINT 

460 IF R*=C$ THEN 500 

470 PRINT"NOr THE CORRECT RESPONSE IS" 

480 PRINT C$ 

490 W=U+i:GOTO 520 

500 PRINT"RIGHT!" 
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510 C=C+1 

520 FOR J=l TO M-2 

530 P(J-1>=P<J>JNEXT 

540 P(H-2)=R 

550 PRINT 

560 GOTO 340 

600 G0SUB 1500 

610 GOTO 2000 

700 IF K<1 THEN 1800 

710 PRINT {PRINT"PUT CASSETTE INTO POSITION." {PRINT 

720 INPUT-NAME FOR FILE'SR* 

730 OPEN 7rl»l»R* 

740 FOR J=l TO K 

750 PRINT#7»F*< J ){PRINT#7, B*< J ) 

770 NEXT 

780 CLOSE 7 

790 PRINT{PRINT"DONE" 

80 N$~R$ 

810 GOTO 2000 

900 PRINTIPRINT-REPOSITION TAPE AHEAD OF FILE" 

910 PR I NT "THEN PRESS ANY KEY." 

920 GET R$:iF R*="" THEN 920 

930 OPEN 7»1»0»N$ 

940 E=0{FOR J=l TO K 

950 IHPUT#7»R$:iF 64 AND ST THEN 1030 

960 INPUT#7»T* 

965 PRINT R$ I PRINT T* 

970 IF 64 AND ST THEN 1000 

980 IF R$OF*(J) OR T*OB*( J ) THEN E=l 

990 NEXT 

1000 CLOSE 7 

1010 PRINTtPRINT-DONE" 

1020 IF E=0 THEN PRINT"O.K." {GOTO 2000 

1030 PRINT'NO GOOD" tGOTO 2000 

1150 INPUT-NAME OF TAPE FILE"5N$ 

1170 PRINTtPRINT"PUT TAPE INTO POSITION" 

1180 PR I NT "THEN PRESS ANY KEY." 

1190 GET R*tIF R*="" THEN 1190 

1200 OPEN 7»1»0»N$ 

1210 k=i:«=o:c=o 

1220 INPUT#7»R* 

1230 IF 64 AND ST THEN 1290 

1240 INPUT#7»T» 

1250 PRINT R* {PRINT T$ 

1270 F$<K)=R$tB$<K)=T$ 

1280 K=K+i:iF K<L THEN 1220 

1290 K=K-1 JPRINT tPRINT-LOADED'JKi "CARDS" 
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1300 CLOSE 7 

1310 PRINTtGOTO 2000 

1500 PRINT 

1505 IF C+W=0 THEN RETURN 

1510 PRINT CJ "RIGHT OUT 0F"?C+W 

1520 PRINTtPRINT C*100/< C+W )J"PER CENT* 

1530 PRINT 

1540 RETURN 

1800 PRINTtPRINT" NO CARDS YET" 

1810 GOTO 2000 

2000 PRINT SPRINT" OPTIONS "tPRINT 

2010 PRINT" 1 — ENTER NEW FLASHCARDS" 

2020 PRINT" 2 ~ LOAD A FLASHCARD TAPE" 

2030 PRINT" 3 — SAVE CURRENT SET ON TAPE" 

204 PRINT" 4 — DRILL ON CURRENT SET" 

2050 PRINT" 5 — VERIFY FLASHCARDS ON TAPE" 

2060 PRINT" 6 — END PROGRAM" 

207O PRINT J INPUT R* 

208O IF R$="l" THEN 190 

2090 IF R*="2" THEN 1150 

2100 IF R$="3" THEN 700 

2110 IF R$="4" THEN 290 

2120 IF R*="5" THEN 900 

2130 IF R*=»6" THEN END 

2140 PRINT" ILLEGAL." tGOTO 2000 

EASY CHANGES 

1. Change the limits of the number of flashcards that can be 
entered by altering line 130. L is the upper limit and M is the 
minimum. The current upper limit of twenty-five will fit in a 
PET with 4K of memory if each side of each flashcard aver- 
ages no more than about twelve to fifteen characters in length. 
In an 8K PET, you can make L as large as about two hundred 
for flashcards this size. Do not make M much larger than 
about ten or so, or you will slow down the program and use 
more memory than you might want. 

2. If you want to use some keywords other than "*END" and 
"*BACK", substitute whatever you like in lines 210, 220, 
240, and 440. Be sure you use expressions that are the same 
length as these two, however, If not, you will also need to 
change the last number just before each occurrence of the 
expression to correspond with the length. 

3. To cause the program to always display side one of the flash- 
cards (and ask you to respond with side two), insert this line: 
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380 GOTO 400 

To cause it to always display side two, insert this: 

380 GOTO 420 

4. To eliminate the "echoing" on the screen of a tape file being 
verified, remove line 965. To do the same for a tape being 
loaded, remove line 1250. 

MAIN ROUTINES 

130- 180 Initializes variables. Creates arrays. Displays title 

and options. 
1 90 - 280 Accepts flashcards entered by operator. 
290 - 61 Drills operator on flashcards in memory. 
700 - 8J Saves flashcards on cassette file. 
900- 1030 Verifies that flashcards on cassette tape are the 

same as those in memory. 
1150- 1310 Loads flashcards from cassette file into memory. 
1500 - 1 540 Subroutine to display number right and attempted 

during drill. 
1800- 1810 Displays error message if operator tries to save 
flashcards on cassette before any are entered. 
2000- 2140 Displays options and analyzes response. Branches 
to appropriate routine. 

MAIN VARIABLES 

L Upper limit of number of flashcards that can be 

entered. 

M Minimum number of flashcards that can be en- 

tered. 

R Subscript of random flashcard chosen during drill. 

K Number of flashcards entered. 

W Number of wrong responses. 

C Number of correct responses. 

F$ Array containing front side of flashcards (side 1). 

B$ Array containing back side of flashcards (side 2). 

P Array containing subscripts of M-l previous 

flashcards during drill. 

J Loop and subscript variable. 

C$ The correct response during drill. 



FLASHCARD 71 

R$ Response from operator. Also temporary string 

variable. 
N$ Name of cassette file. 

E Error flag— set to 1 if error occurs on cassette. 

T$ Temporary string variable. 

SUGGESTED PROJECTS 

1 . Provide the capability to extend a set of flashcards. Create a 
new command that permits the operator to enter additional 
cards to be added to the end of the flashcards that are cur- 
rently in memory. 

2. Modify the program for use in a classroom environment. You 
might want to allow only command 2 to be used (to load a 
cassette tape), and then immediately go into "drill" mode for 
some fixed number of questions (maybe 20 or 50). 
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METRIC 



PURPOSE 

In case you don't realize it, we live in a metric world. The 
United States is one of the last holdouts, but that is changing 
rapidly. So if you're still inching along or watching those 
pounds, it's time to convert. 

METRIC is an instructional program designed to familiarize 
you with the metric system. It operates in a quiz format; the 
program randomly forms questions from its data resources. You 
are then asked to compare two quantities— one in our old 
English units and one in the corresponding metric units. When 
you are wrong, the exact conversion and the rule governing it 
are given. 

The two quantities to compare are usually within 50% of 
each other. Thus, you are constantly comparing an "English" 
quantity and a metric one which are in the same ball park. This 
has the effect of providing you some insight by sheer familiarity 
with the questions. 

HOW TO USE IT 

The first thing the program does is ask you how many 
questions you would like to do for the session. Any value of 
one or higher is acceptable. 

The sample run shows how each question is formulated. A 
quantity in English units is compared with one in metric units. 
Either one may appear first in the question. Each quantity will 
have an integral value. The relating word ("longer," "hotter," 
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"heavier," etc.) indicates what type of quantities are being com- 
pared. 

There are three possible replies to each question. Pressing Y 
or N means that you think the answer is yes or no, respectively. 
Pressing any other key indicates that you have no idea as to the 
correct answer. 

If you answer the question correctly, you will be duly con- 
gratulated and the program will proceed to the next question. 
A wrong answer or a response of "no idea," however, will 
generate some diagnostic information. The first value used in 
the question will be shown converted to its exact equivalent in 
the corresponding units. Also, the rule governing the situation 
will be displayed. At the end of any question, the program will 
request that you hit any key to proceed to the next question. 
The program will continue generating the requested number 
of questions. Before ending, it will show you how many correct 
answers you gave and your percentage correct. 

SAMPLE RUN 

A METRIC QUIZ 

HOW MANY QUESTIONS SHALL WE DO? 3 

QUESTION 1 OF 3 

IS ^8 MILES LONGER THAN 

92 KILOMETERS ? ("N" key pressed) 

YOU SAY 'NO' 

AND YOU'RE RIGHT - VERY GOOD! 



:;}!:: HIT ANY KEY TO CONTINUE """ 
QUESTION 2 OF 3 

IS 73 DEGREES FAHRENHEIT HOTTER THAN 

22 DEGREES CENTIGRADE ? ("Y" key pressed) 

YOU SAY 'YES' 

AND YOU'RE RIGHT - VERY GOOD! 



ssksc HIT ANY KEY TO CONTINUE """ 
QUESTION 3 OF 3 

IS 79 KILOGRAMS HEAVIER THAN 

152 POUNDS ? C"N" key pressed) 

YOU SAY 'NO' BUT YOU'RE WRONG 
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79 KILOGRAMS EQUALS 
m. 166097 POUNDS 

THE RULE IS 

1 KILOGRAM EQUALS 
2.201+63 POUNDS 

«"" HIT ANY KEY TO CONTINUE """ 

YOU GOT 2 RIGHT OUT OF 3 QUESTIONS 

PERCENTAGE CORRECT = 66.6666667 

PROGRAM LISTING 

100 REM METRIC 

110 REM COPYRIGHT 1978 BY PHIL FELBMAN AND TOM RUGG 

150 DIM ES*(30)rMS*(30) 1 -R$(30)»C(30)TEP$(30)fMP*(30) 

160 Q=RND<-TI)JB$=" " 

200 GOSUB 400 {GOSUB 450 

210 INPUT"H0W MANY QUESTIONS SHALL WE DO'SNQt 

NQ=INT(NQ){IF NQ<1 THEN 210 
220 FOR J=l TO NQJG0SUB 600JGOSUB 900 {NEXT 
230 GOSUB 450:PRINT"Y0U GOT" ?NR» "RIGHT OUT OF" J 

NQ» "QUEST IONS "{PR I NT 
240 P=100*NR/NQ{PRINT"PERCENTAGE CORRECT ="»P 

250 END 

400 RESTORE JND=0 

410 ND=ND+1{READ ES$( ND )tMS$< ND >,R$< ND )»C< ND)»EP$< 

ND)fMP*<ND) 
420 IF ES*(NDK>"XXX" THEN 410 
430 ND=NB-1 {RETURN 
450 PRINT CHR$<147)»TAB(11)J"A METRIC QUIZ" {PRINT? 

PRINT {RETURN 
600 N=INT(ND*RND<1))+1 
610 F=0{IF RND<1»0.5 THEN F=l 
620 V1=INT< RND< 1 >*99 >+2{V3=Vl*C< N ){ 

IF F=l THEN V3=V1/C(N) 
630 IF N=l THEN V3=< Vl-32 >/1.8{ 

IF F=l THEN V3=<Vi*1.8>+32 
640 V2=V3*< »5+RND< 1 ) ) { U2=INT< V2+0 .5 )!T=0 { 

IF V2<V3 THEN T=l 
650 GOSUB 450{PRINT"QUESTION">J5"0F M fNQ{PRINT 
660 IF F=0 THEN PRINT" IS" »V1 ?EP$< N >JB*»R*( N >j" THAN" { 

PRINT B$iB*JV2JMP*<N)r" ?" 
670 IF F=l THEN PRINT"IS"?V1»MP$< N)»B*»R$< N )»" THAN 

PRINT B$»B*iV2»EP*<N>J" ?" 



u • 
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680 BET Q$:iF Q$="" THEN 680 

700 IF G$="Y" THEN PRINTIPRINT"Y0U SAY 'YES'"*:R=i: 

GOTO 730 
710 IF Q*="N" THEN PRINT:PRINT"Y0U SAY 'NQ'"»:R=0: 

GOTO 730 
720 PRINT:PRINT h Y0U HAVE NO IDEA"JR=2 
730 X=T-R:iF R=2 THEN GOSUB 800 {GOTO 760 
740 IF X=0 THEN PRINTtPRINT" AND YOU'RE 

RIGHT - VERY GOOD! " tNR=NR+l tGOTO 760 
750 PRINT" BUT YOU'RE WRONG" tGOSUB 800 

760 RETURN 

80O PRINTtPRINT" " tPRINT 

810 IF F=0 THEN PRINT yi»EP*(N>," EQUALS": 

PRINT V3*MP$(N> 
820 IF F=l THEN PRINT yi*MP*(N>," EQUALS": 

PRINT V3*EP*<N> 

830 PRINTtPRINT" THE RULE IS "SPRINT 

840 IF N=l AND F=0 THEN 

PRINT" DEG.C = (DEG.F - 32)/1.8" : RETURN 
850 IF N=l AND F=l THEN 

PRINT" DEG.F = (DEG.C * 1.8) + 32" '.RETURN 
860 IF F=0 THEN PRINT" 1 "*ES*(N)*" EQUALS": 

PRINT C(N>,MP$(N>: RETURN 
870 Q=INT(1.E5/C(N))/1.E5: 

PRINT" 1 "»MS$(N)*" EQUALS" JPRINT G»EP$< N KRETURN 
900 PRINTiPRINTtPRINT"*** HIT ANY KEY TO CONTINUE ***" 
910 GET QtJIF Q*="" THEN 910 
920 RETURN 
1000 DATA DEGREE FAHRENHEIT, DEGREE CENTIGRADE* 

HOTTER»0.5 
1010 DATA DEGREES FAHRENHEIT*DEGREES CENTIGRADE 
1020 DATA MILE PER HOUR*KILOMETER PER HOUR* 

FASTER* 1.60935 
1030 DATA MILES PER HOUR*KILOMETERS PER HOUR 
1040 DATA FOOT* METER* LONGER* 0.30 48 
1050 DATA FEET*METERS 
1060 DATA HILEfKILOHETERt LONGER*!. 60935 
1070 DATA MILES* KILOMETERS 
1080 DATA INCH»CENTIMETER*L0NGER»2.54 
1090 DATA INCHES*CENTIMETERS 
1100 DATA GALL0N*LITRE*M0RE*3. 78533 
1110 DATA GALLONSf LITRES 
1120 DATA POUND*KILOGRAM*HEAVIER*0. 45359 
1130 DATA POUNDS*KILOGRAMS 
1999 DATA XXX*XXX*XXX*0*XXX*XXX 
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EASY CHANGES 

1 . To have the program always ask a fixed number of questions, 
change line 210 to set NQ to the desired value. For example: 

210NQ=10 

will cause the program to do 10 questions. 

2. There are currently seven conversions built into the program: 

English Unit Metric Unit 

degrees F. degrees C. 

miles/hour kilometers/hour 

feet meters 

miles kilometers 

inches centimeters 

gallons litres 

pounds kilograms 

If you wish to be quizzed on only one type of question, set 
N to this value in line 600. Thus, 

600 N=4 

will cause the program to only produce questions comparing 
miles and kilometers. To add additional data to the program, 
see the first "Suggested Project." 

3. You can easily have the questions posed in one "direction" 
only. To go only from English to metric units use 

610 F=0 

while to go from metric to English units use 

610 F=l 

4. You might want the converted value and governing rule to be 
displayed even when the correct answer is given. This is ac- 
complished by changing line 740 and adding a line 745 as 
follows: 

740 IF X=0 THEN PRINT:PRINT" AND YOU'RE RIGHT 

-VERY GOOD!" 
745 IF X=0 THEN NR=NR+1 :GOSUB 800:GOTO 760 

MAIN ROUTINES 

1 50 - 160 Dimensions and initializes variables. 
200 - 250 Mainline routine, drives other routines. 
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400 - 430 Reads and initializes data. 

450 Displays header. 

600 - 760 Forms and asks questions. Processes user's reply. 

800 - 870 Displays exact conversion and governing rale. 

900 - 920 Waits for user to hit any key. 

1 000 - 1 999 Data statements. 

MAIN VARIABLES 

ND Number of conversions in the data. 

ESS, EPS String arrays of English units' names (singular, 

plural). 
MS$,MP$ String arrays of metric units' names (singular, 

plural). 
R$ String array of the relation descriptors. 

C Array of the conversion factors. 

Q Work variable. 

B$ String constant of one blank character. 

J Current question number. 

NR Number of questions answered right. 

P Percentage answered right. 

NQ Number of questions in session. 

N Index number of current question in the data list. 

F Flag on question "direction" (0= English to metric; 

l=metric to English). 
VI ,V2 Numeric values on left, right sides of the question. 
V3 The correct value of the right hand side. 

T Flag on the question's correct answer (l=true; 

0=false). 
Q$ User reply string. 

R User reply flag (0=no; l=yes; 2=no idea). 

X User's result ( if correct answer was given). 

SUGGESTED PROJECTS 

1 . Each built-in conversion requires six elements of data in this 
order: 
Element Data Description 

1 English unit (singular) 

2 Metric unit (singular) 

3 Relation descriptor (e.g., "hotter," "faster," etc.) 
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4 Conversion factor (from English to metric) 

5 English unit (plural) 

6 Metric unit (plural) 

Each of these elements, except the fourth, is a string. The 
data statements in the listing should make clear how the 
information is to be provided. You can add new data to the 
program with appropriate data statements in this format. 
New data should be added after the current data, i.e. just 
before line 1999. Line 1999 is a special data statement to 
trigger the end of all data to the program. The program is 
dimensioned up to thirty entries while only seven are currently 
used. (Note: this format allows only conversions where one 
unit is a direct multiple of the other. Temperature, which 
does not fit this rule, is handled as a special case throughout 
the program.) 

2. Convert the program to handle units conversion questions of 
any type. 

3. Keep track of the questions asked and which ones were 
missed. Then do not ask the same questions too soon if they 
have been answered correctly. However, do re-ask those ques- 
tions missed for additional practice. 
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NUMBERS 



PURPOSE 

This is an educational program for pre-school children. After 
a few weeks of watching Sesame Street on television, most three 
and four year old children will learn how to count from one to 
ten. The NUMBERS program allows these children to practice 
their numbers and have fun at the same time. 

HOW TO USE IT 

We know a child who learned how to type LOAD and RUN 
to get this program started before she turned three, but you'll 
probably have to help your child with this for a while. The pro- 
gram asks the question, "WHAT NUMBER COMES AFTER n?", 
where n is a number from one to nine. Even if the child can't 
read yet, he or she will soon learn to look for the number at 
the end of the line. The child should respond with the appro- 
priate number, and then press the RETURN key. 

If the answer is correct, the program displays the message 
"THAT'S RIGHT!", pauses for a couple of seconds, and then 
clears the screen and displays three geometrical shapes. In the 
upper left of the screen a square is drawn. In the lower center, a 
triangle is drawn. Then as asterisk (or a snowflake, perhaps?) is 
drawn in the upper right portion of the screen. After about a 
five second delay, the program clears the screen and asks 
another question. The same number is never asked twice in a 
row. The size of the three figures is chosen at random each time. 
Also, the graphics character used in drawing the asterisk is 
chosen at random (from a few possibilities) each time. 
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If the child provides the wrong answer, a message indicates 
the error and the same question is asked again. 

The program keeps on going until you hit the STOP key. Re- 
member that most children have a pretty short attention span, 
so please do not force your child to continue after his or her 
interest diminishes. Keep each session short and fun. This way, 
it will always be a treat to "play" with the computer. 

SAMPLE RUN 




The program asks what number comes after 7, and waits for a response. 
The operator says "8", and the program acknowledges that the answer is 
correct. 
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Because of the correct response, the program draws three geometric figures. 



PROGRAM LISTING 
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COPYRIGHT 1978 BY TOM RUGG AND PHIL FELDMAN 



100 REM J 

no rem: 

120 M=9 

130 S=32768{E=10tTS=12 

140 R=RND<-TI)tPRINT CHR$(147> 

150 PRINT {PRINT 

160 PRINT TAB<10)JCHR*<18)}"NUMBERS M 

170 R=INT(M*RND(l))+ltIF R=P THEN 170 

180 PRINT : PRINT 

190 PRINT"UHAT NUMBER COMES AFTER" }R 

200 INPUT R$ 

210 PRINT: PR I NT 

220 IF YAL<R$)=R+1 THEN 300 

PRINT"N0j THAT'S NOT IT, 

GOTO 180 

PRINT-THAT' S RIGHT!" 

FOR X=l TO 1000 : NEXT 

P=R:C=102IPRINT CHR*U47> 

E=INT<8*RND<i>>+3 

y=i:for x=i to e:gosub 9oo:next 
x=e:for y=i to e:gosub ?oo:next 



230 
240 
300 
310 
320 
330 
400 
410 



TRY AGAIN," 



J 
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420 Y=E:F0R X=E TO 1 STEP -ltGOSUB 900tNEXT 
430 X=ltF0R Y=E TO 1 STEP -ltGOSUB 900JNEXT 
450 C=77tF0R J=l TO E 

460 y=ts+j:x=y:gosub 90o:next 

470 C=78:F0R J=l TO E 

480 y=ts+j:x=ts-j+i:gosub 90ojnext 

490 C=99tY=TS+E+ltF0R X=TS-E+1 TO TS+E 

500 GOSUB 900tNEXT 

520 A=28tB=10tC=INT< 7*RND< 1 ) >+86 

530 FOR J=l TO E 

540 X=A+JtY=B+JtGOSUB 900 

550 Y=B-J:G0SUB 900 

560 Y=Bt GOSUB 900 

570 X=At GOSUB 900 

580 Y=B-fJtGOSUB 900 

590 Y=B-JtGOSUB 900 

600 X=A--JtGQ5UB 900 

610 Y=Bt GOSUB 900 

620 Y=B+Jt GOSUB 900 

630 NEXT 

800 FOR J=l TO 3000 t NEXT J 

810 PRINT CHR*(147) 

320 GOTO 170 

900 POKE S+40*Y+X»C 

910 RETURN 

EASY CHANGES 

1 . Change the range of numbers that the program asks by altering 
the value of M in line 1 20. For a beginner, use a value of 3 
for M instead of 9. Later, increase the value of M to 5, and 
then 8. 

2. Alter the delay after "THAT'S RIGHT!" is displayed by al- 
tering the value of 1000 in statement 310. Double it to double 
the time delay, etc. The same can be done with the 3000 in 
line 800 to alter the delay after the figures are drawn. 

3. To avoid randomness in the size of the figures that are drawn, 
replace line 330 with 

330E=10 

Instead of 10, you can use any integer from 2 to 1 1. 

4. To use a wider range of random graphics characters in drawing 
the asterisk, change the 7 in line 520 into a 1 9, and the 86 
into 77. 
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5. To slowly increase the size of the figures from small to large 
as correct answers are given (and the reverse for incorrect 
answers), do the following: 

a. Replace the 10 in line 130 with a 2. 

b. Insert this line 

225 E=E-3:IF E<2 THEN E=2 

c. Replace line 330 with the following: 

330E=E+2:IFE>11 THEN E= 11 



MAIN ROUTINES 

1 20 - 160 Initializes variables. Clears screen. 

1 70 Picks random integer from 1 to M. 

1 80 - 240 Asks question. Gets answer. Determines if right or 

wrong. 
310 Delays about 1 V2 seconds. 

320 - 430 Draws a square. 
450 - 500 Draws a triangle. 
520-630 Draws an asterisk. 
800 Delays about 5 seconds. 

810-820 Clears screen. Goes back to ask next question. 
900 - 9 1 Subroutine to POKE graphics character C to X, Y 

coordinate location on screen. 



MAIN VARIABLES 

M Maximum number that will be asked. 

S Starting address of CRT screen. 

E Edge length of geometric figures. 

R Random integer in range from 1 to M. 

P Previous number that was asked. 

R$ Reply given by operator. 

X,Y Coordinates in CRT display. 

C Graphics character to be POKEd to CRT screen. 

TS Triangle's starting location (top). 

A,B X,Y coordinate values. 

J Subscript variable. 
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SUGGESTED PROJECTS 

1. Modify the program to ask the next letter of the alphabet. 
Use the ASC and CHR$ functions in picking a random letter 
from A to Y, and to check whether the response is correct or 

not. 

2. Ask each number from 1 to M once (in a random sequence). 
At the end of the sequence, repeat those that were missed. 

3. Add different shapes to the graphics display that is done after 
a correct answer. Try an octagon, a diamond, and a rectangle. 
Or, combine this program with one of the graphics display 
programs. 
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PURPOSE 

This program turns your computer into a tachistoscope 
(tah-KISS-tah-scope). A tachistoscope is used in reading classes 
to improve reading habits and, as a result, improve reading 
speed. The program displays a word or phrase on the screen for 
a fraction of a second, then asks you what it was. With a little 
practice, you will find that you can read phrases that are dis- 
played for shorter and shorter time periods. 

HOW TO USE IT 

The program starts off by displaying a brief introduction and 
waiting for you to press any key (except the STOP key or shift 
keys, of course). After you press a key, the screen is blanked 
out except for two horizontal dash lines in the upper left-hand 
corner. After two and a half seconds, a phrase is flashed on the 
screen between the two lines. Then the screen is blanked again, 
and you are asked what the phrase was. 

If you respond correctly, the next phrase is displayed for a 
shorter time period (.05 seconds less). If you respond incor- 
rectly, the program shows you the correct phrase, and the next 
phrase is displayed for a longer period of time (.05 seconds 
more). 

The fastest the computer can display a phrase and erase it is 
about .02 seconds (one-fiftieth). See if you can reach the top 
speed and still continue to read the phrases correctly. 
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A great deal of research has been done to determine how 
people read and what they should do to read both faster and 
with better comprehension. We will not try to explain it all (see 
the bibliography), but a couple of things are worth mentioning. 

To read fast, you should not read one word at a time. Instead, 
you should learn to quickly read an entire phrase at once. By 
looking at a point in the center of the phrase (and slightly above 
it), your eyes can see the whole phrase without the necessity of 
scanning it from left to right, word by word. Because the 
tachistoscope flashes an entire phrase on the screen at once, it 
forces you to look at a single point and absorb the whole phrase, 
rather than scanning left to right, word by word. 

If you can incorporate this technique into your reading and 
increase the width of the phrases you absorb, your reading 
speed can increase dramatically. 



SAMPLE RUN 



•••• TACHISTOSCOPE *t«* 

IH«oCI°?80B readIn^s-IIeS 
WG^^Wu^Rl^leflff J ' LL TELL 

WE'LL START AT .1 SECONDS. 
PRESS ANV KEY WHEN YOU'RE READY. 



The program displays an introduction, then waits. 
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The program clears the screen and displays two parallel lines in the upper 
left corner of the screen for a couple of seconds. 




The program flashes a short phrase (chosen at random) between the two 
lines for one tenth of a second, then clears the screen. 
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S H 8J W HSe 

THAT'S RIGHT! 



LL BE DISPLAYED 



PRESS ANY KEY HHEN YOU'RE READY. 



The program asks what the phrase was. The operator responds correctly. 
The program acknowledges the correct response, and indicates that the 
next phrase will be shown for a shorter length of time. 



PROGRAM LISTING 



100 REM? TACHISTOSCOPE 

110 REMS COPYRIGHT 1978 BY TOM RUGG AND PHIL FELDMAN 

120 T=,l 

130 J=T*60:B=147 

140 L=50 

150 DIM T$<L> 

160 C=0 

170 READ R* 

180 IF R*="XXX" THEN 250 

190 C=C+1 

200 IF OL THEN PRINT"T00 MANY DATA STATEMENTS" X END 

210 T*<C)=R* 

220 GOTO 170 

250 R=RNB<-TI> 

260 PRINT CHR$<B> 

270 PRINT"**** TACHISTOSCOPE ****" 

280 PRINT 

290 PRINT"THIS PROGRAM IS DESIGNED TO" 

300 PRINT" IMPROVE YOUR READING SPEED." 
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310 PRINT 

320 PRINT" I'LL BRIEFLY DISPLAY A SHORT" 

330 PRINT-PHRASEt AND YOU TRY TO READ IT." 

340 PRINT 

350 PRINT"TYPE WHAT YOU SEE, AND I'LL TELL" 

360 PRINT" YOU IF YOU WERE RIGHT." 

370 PRINT 

380 print" we'll start at" jt j "seconds." 
400 for k=i to s:get r*:next:print 

410 PRINT-PRESS ANY KEY WHEN YOU'RE READY." 

420 GET R$IIF R$="" THEN 420 

430 R=INT(C*RND<1)>+1 

440 IF R=P1 OR R=P2 OR R=P3 THEN 430 

450 IF R=P4 OR R=P5 THEN 430 

460 PRINT CHR$(B)IGOSUB 840 

465 FOR K=l TO 1500INEXT KJIF J<2 THEN 800 

470 PRINTIPRINTtPRINT T$< R ) 

480 S=TI 

490 IF TI-S<J THEN 490 

500 PRINT CHR«B) 

505 FOR K=l TO 500 J NEXT K 

510 PRINTJPRINT.TRINTJPRINT 

520 PRINT"WHAT WAS IT?" 

530 INPUT R$ 

540 PRINT 

550 IF R*OT$(R> THEN 700 

560 PRINT" THAT'S RIGHT!" 

570 J=J-3 

580 IF J<1,2 THEN J=1.2 

590 PRINT 

600 P1=P2:P2=P3:P3=P4:P4=P5:P5=R:PRINT 

610 PRINT-THE NEXT ONE WILL BE DISPLAYED" 

620 PRINT"FOR"» J/60? "SECONDS." 

630 PRINT 

640 GOTO 400 

700 PRINT"NOr THAT'S NOT IT. IT WAS" 

710 PRINT:PRINT"'"JT$(R)f"'" 

720 J=J+3 

730 IF INK J/3 )<>J/3 THEN J=3*INT(J/3> 

740 GOTO 590 

800 PRINT tPRINTJPRINT T$<R )*CHR*< 147 ) 

810 GOTO 505 

840 PRINT" "IPRINT 

850 PRINT JPRINTJPRINT" • 

860 PRINT CHR$(19) 

870 RETURN 

910 DATA" AT THE TIME" 
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920 DATA" THE BROWN COW" 
930 DATA" LOOK AT THAT" 
940 DATA" IN THE HOUSE" 
950 DATA" THIS IS MINE" 
960 DATA" SHE SAID SO" 
970 DATA" THE BABY CRIED" 
980 DATA" TO THE STORE" 
990 DATA-READING IS FUN" 
1000 DATA" HE GOES FAST" 
1010 DATA" IN ALL THINGS" 
1020 DATA-GREEN GRASS" 
1030 DATA" TWO BIRDS FLY" 
1040 DATA'LATE LAST NIGHT" 
1050 DATA" THEY ARE HOME" 
1060 DATA" ON THE PHONE" 
1070 DATA" THROUGH A DOOR" 
1080 DATA" WE CAN TRY" 
1090 DATA" MY FOOT HURTS" 
1100 DATA" HAPPY NEW YEAR" 
9999 DATA XXX 



EASY CHANGES 

1 Change the phrases that are displayed by changing the DATA 
statements that start at line 910. Add more and/or replace 
those shown with your own phrases or words. Line 140 must 
specify a number that is at least as large as the number of 
DATA statements. So, to allow for up to 100 DATA state- 
ments, change line 140 to say 

140 L= 100 

Be sure to enter your DATA statements in the same form 
shown in the program listing. To begin with, you may want 
to start off with shorter phrases or single words. Later, try 
longer phrases. Do not alter line 9999, which has to be the last 
DATA statement. In a 4K PET, you have room for about 60 
phrases of the approximate size shown in the program listing. 
In an 8K PET, you can probably have over 200 of them. Be 
sure to have at least 6. 

2. To change the length of time the first phrase is displayed, 
change the value of T in line 120. If one-tenth of a second is 
too fast, try two-tenths. Use a multiple of .05 seconds, or else 
make it . 02 seconds (the maximum speed). 

3. To cause all phrases to be displayed for the same length of 
time, remove lines 570 and 720. 
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4. If you want to change the waiting period before the phrase is 
flashed on the screen, change the 1500 in line 465. To make 
the delay five seconds, change it to 3000. To make it one 
second, change it to 600. 

5. To put the program into a sort of flashcard mode, in which 
the phrases are flashed, but no replies are necessary, insert 
these two lines: 

515 GOTO 710 

715 GOTO 590 

This will cause each phrase to be flashed (all for the same 
length of time), and then displayed again so you can verify 
what it was. 

MAIN ROUTINES 

1 20 - 1 50 Initializes variables 

1 60 - 220 Reads DATA statements into T$ array. 

260 - 380 Displays introduction. 

400 - 420 Waits for operator to press a key. 

430-450 Picks random phrase from T$ array. Ensures no 

duplication from previous five phrases. 
460 - 465 Clears screen and displays horizontal lines. 
470 - 500 Displays phrase for appropriate length of time. 
505 - 530 Waits, then asks what the phrase was. 
550 Determines if typed phrase matches the phrase 

displayed. 
560 - 640 Shortens time for next phrase if reply was correct. 

Saves subscript to avoid repetition. Goes back to 

400. 
700- 740 Shows what phrase was. Lengthens time for next 

phrase. Ensures that time period is a multiple of 

.05 seconds. 
800 - 8 1 Special routine to display phrase for shortest time 

(about .02 seconds). 
840 - 870 Subroutine to display horizontal dash lines. 
9 1 - 9999 DATA statements with phrases to be displayed. 

MAIN VARIABLES 

T Time (seconds) that phrase will be displayed. 

J Number of "jiffies" that the phrase will be dis- 

played. 
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B ASCII number for character to clear screen. 

L Limit of number of phrases. 

T$ Array of phrases (read into from DATA state- 

ments). 

C Count of number of phrases actually read. 

R$ Temporary string variable . Also, reply of operator. 

r Work variable. Also, subscript of phrase to be dis- 

played. 

PI ,P2, Subscripts of the five previous phrases. 

P3,P4,P5 

S Starting time of display of phrase (in jiffies). 

K Temporary work variable. 

SUGGESTED PROJECTS 

1 Instead of picking phrases at random, go through the list 
once sequentially. Change line 250 to set R to zero, and line 
430 to add one to R, then check if R is greater than C. 

2. Instead of only verifying that the current phrase does not 
duplicate any of the previous five phrases, modify the pro- 
gram to avoid duplication of the previous ten or more. 
Changes will be needed to lines 440, 450, and 600. 

3. Keep score of the number of correct and incorrect replies, 
and display the percentage each time. Alternatively, come up 
with a rating based on the percentage correct and the speed 
attained, possibly in conjunction with a difficulty factor for 
the phrases used. 

4. Add the capability to the program to also have a mode in 
which it can display a two to seven digit number, chosen at 
random. Have the operator try several of the numbers first 
(maybe five-digit ones) before trying the phrases. The phrases 
will seem easy after doing the numbers. 
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PURPOSE 

Did you ever find yourself at a loss for words? Well, this vo- 
cabulary quiz can be used in a self-teaching environment or as 
reinforcement for classroom instruction to improve your ability 
to remember the jargon of any subject. It allows you to drill at 
your own pace, without the worry of ridicule from other 
students or judgment by an instructor. When you make mistakes, 
only the computer knows, and it's not telling anyone except 
you. Modifying the program to substitute a different vocabulary 
list is very simple, so you can accumulate many different 
versions of this program, each with a different set of words. 

HOW TO USE IT 

This program is pretty much self-explanatory from the sample 
run. After you enter "RUN," it asks you how many questions 
you would like. If you respond with a number less than five, 
you will still do five. Otherwise, you will do the number you 
enter. 

Next, you get a series of multiple choice questions. Each 
question is formatted in one of two ways-either you are given 
a word and asked to select from a list of definitions, or you are 
given a definition and asked to select from a list of words. The 
format is chosen at random. You respond with the number of 
the choice you think is correct. If you are right, you are told so. 
If not, you are shown the correct answer. From the second 
question on, you are shown a status report of the number 
correct out of the number attempted so far. 
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Finally, after the last question, you are shown the percentage 
you got correct, along with a comment on your performance. 
Then you have the option of going back for another round of 
questions or stopping. 

SAMPLE RUN 

RUN 



::5c::;5 VOCABULARY QUIZ 



THIS PROGRAM WILL TEST YOUR KNOWLEDGE 
OF SOME USEFUL VOCABULARY WORDS 

HOW MANY QUESTIONS SHALL WE DO? 5. 

1 — WHAT WORD MEANS ALL-KNOWING? 

1 — LACONIC 

2 -- HEDONISTIC 

3 -- OMINOUS 

4 — CONGENITAL 

5 — OMNISCIENT 

? I 

RIGHT! 

2 __ WHAT DOES PARSIMONIOUS MEAN? 

1 -- INDIFFERENT OR UNINTERESTED 

2 — KEEN IN JUDGMENT 

3 __ STINGY OR FRUGAL 
l+ __ WEAK OR EXHAUSTED 

5 — OF UNKNOWN OR HIDDEN ORIGIN 

? 4 

NO, THE ANSWER IS NUMBER 3 

YOU HAVE 1 RIGHT OUT OF 2 QUESTIONS. 

( . . . later) 

YOU HAVE 3 RIGHT OUT OF 5 QUESTIONS. 
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THAT'S 60 PERCENT. 

NOT BAD, BUT ROOM FOR IMPROVEMENT. 

WANT TO TRY AGAIN? NO 

CHECK YOU LATER. 

PROGRAM LISTING 

100 REM J VOCABULARY QUIZ 

110 REM: COPYRIGHT 1978 BY TOM RUGG AND PHIL FELDMAN 

300 GOSUB 1000 

400 GOSUB 2000 

500 GOSUB 3000 

600 GOSUB 4000 

700 GOSUB 5000 

800 GOSUB 6000 

900 IF E=0 THEN 500 

910 GOTO 300 

990 REM 

1000 IF ECO THEN 1060 

1010 PRINT CHR$(147) 

1020 PRINT"**** VOCABULARY QUIZ ****" 

1030 PRINT 

1040 PRINT"THIS PROGRAM WILL TEST YOUR KNOWLEDGE" 

1050 PRINFQF SOME USEFUL VOCABULARY WORDS." 

1060 PRINT 

1110 INPUT'HOW MANY QUESTIONS SHALL WE BO"JL 

1120 L=INT(L) 

1130 IF L>4 THEN 1145 

1135 PRINT"THAT'S NOT ENOUGH, LET'S DO 5." 

1140 L=5 

1145 IF EOO THEN 1200 

1150 PRINT 

1160 R-RNM-TI) 

1200 RETURN 

2000 IF EOO THEN 2200 

2010 C=5 

2020 D=26 

2030 DIM D$(D),E$(D) 

2040 DIM P(C) 

2050 J=l 

2060 READ D*<J) 

2070 IF D$(J)="XXX" THEN 2140 

2090 READ E$(J) 

2100 J=J+1 
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?110 IF J<=D THEN 2060 

oiOQ PRINT"T00 MANY DATA STATEMENTS." 

2130 PRINT"ONLY FIRST" WARE USED." 

2140 D=J-1 

2200 0=1 

2210 E=0 

2220 Q1=0 

2300 RETURN 

3000 FOR J=l TO C 

3010 P<J)=0 

3020 NEXT J 

3030 FOR J=l TO C 

3040 P=INTCD*RNDU>>+1 

3045 IF P=P1 OR P=P2 OR P=P3 THEN 3040 

3050 FOR K=l TO J 

3060 IF P(K)=P THEN 3040 

3070 NEXT K 

3080 P(J)=P 

3090 NEXT J 

3110 A=INT(C*RND<1)>+1 

3200 RETURN 

4000 PRINT 

4010 M=RND<1> 

4020 IF M>.5 THEN 4100 

4030 PRINT Qr"— WHAT WORD MEANS "JE*< P< A) )>*?" 
4040 FOR J=l TO C 

4050 PRINT TAB(5)»JJ U -- 'SD*<P<J>> 

4060 NEXT J 

4070 GOTO 4200 

4100 PRINT Qf- WHAT DOES " 5D$(P( A) )J" MEAN?" 

4110 FOR J=l TO C 

4120 PRINT TAB(5)JJ5"— ";E*<P(J)> 

4130 NEXT J 

4200 PRINT 

4210 RETURN 

5000 INPUT R 

5010 R=INT(R) 

5020 IF R>=1 AND ROC THEN 5040 

5030 PRINT" I NEED A NUMBER FROM 1 TONC 

5035 GOTO 5000 

5040 PRINT 

5050 IF R=A THEN 5100 

5060 PRINT"NO, THE ANSWER IS NUMBER" ?A 

5070 GOTO 5200 

5100 PRINT-RIGHT!" 
5110 Q1=Q1+1 

5200 PRINT 

5210 IF G=l THEN 5300 
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5220 PRINT"Y0U HAVE" 501? "RIGHT OUT OF" ^"QUESTIONS." 

5300 P3=P2 

5310 P2=P1 

5320 P1=P<A> 

5330 RETURN 

6000 Q=G+1 

6010 IF Q<=L THEN RETURN 

6020 E=l 

6030 Q=INT(G1*100/(Q-1>> 

6040 IF Q>0 THEN 6070 

6050 PRINT"WELL, THAT'S A 'PERFECT' SCORE..." 

6060 GOTO 6200 

6070 PRINT"THAT'S"?Q,'"PERCENT." 

6080 IF Q>25 THEN 6110 

6090 PR.TNT"CONGRATULATIONS ON AVOIDING A SHUTOUT." 

6100 GOTO 6200 

6110 IF Q>50 THEN 6140 

6120 PRINT" YOU CAN USE SOME MORE PRACTICE." 

6130 GOTO 6200 

6140 IF Q>75 THEN 6170 

6150 PRINT-NOT BAD, BUT ROOM FOR IMPROVEMENT." 

6160 GOTO 6200 

6170 PRINT"VERY GOOD!" 

6180 IF Q>95 THEN 

PRINT" YOU' RE ALMOST AS SMART AS I AM'" 
6200 PRINT 

6210 INPUT"WANT TO TRY AGAIN" JR$ 
6220 IF LEFT$(R* f lK>"N" THEN 6230 
6225 PRINTJPRINT"CHECK YOU LATER. "{PRINT 
6228 END 

6230 IF LEFT$<R$,1)="Y" THEN 6250 
6240 GOTO 6210 
6250 RETURN 

7000 REM: ON LINE 2020 , D MUST BE AT 
7002 REM! LEAST ONE GREATER THAN THE 
7004 REM: NUMBER OF DIFFERENT WORDS. 
7010 DATA ANONYMOUS, "OF UNKNOWN OR HIDDEN ORIGIN" 
7020 DATA OMINOUS, "THREATENING OR MENACING" 
7030 DATA AFFLUENT* WEALTHY 

7040 DATA APATHETIC, "INDIFFERENT OR UNINTERESTED" 
7050 DATA LACONIC, TERSE 

7060 DATA INTREPID, "FEARLESS OR COURAGEOUS" 
7070 DATA GREGARIOUS, "SOCIAL OR COMPANY-LOVING" 
7080 DATA ENERVATED, "WEAK OR EXHAUSTED" 
7090 DATA VENERABLE, "WORTHY OF RESPECT OR REVERENCE" 
7100 DATA DISPARATE, "DIFFERENT AND DISTINCT" 
7110 DATA VIVACIOUS, "LIVELY OR SPIRITED" 
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7190 DATA ASTUTE, "KEEN IN JUDGMENT" 
7130 DATA URSINE, BEARLIKE 
7140 DATA PARSIMONIOUS, "STINGY OR FRUGAL" 
7150 DATA OMNISCIENT, "ALL-KNOWING" 
7999 DATA XXX 

EASY CHAMGES 

1. Add more DATA statements between lines 7000 and 7999, 
or replace them all with your own. Be careful not to use two 
or more words with very similar definitions; the program 
might select more than one of them as possible answers to 
the same question. Note that each DATA statement first has 
the vocabulary word, then a comma, and then the definition 
or synonym. Be sure there are no commas or colons in the 
definition (unless you enclose the definition in quotes). If 
you add more DATA statements, you have to increase the 
value of D in line 2020 to be at least one greater than the 
number of words. The number of DATA statements you can 
have depends on how long each one is and how much user 
memory your computer has. Using DATA statements that 
average the same length as these, you can probably have 
about thirty of them in a 4K PET, or as many as 130 in an 
8K model. Be sure to leave statement 7999 as it is-it signals 
that there are no more DATA statements. 
2 To get something other than five choices for each question, 
change the value of C in line 2010. You might want only 
three or four choices per question. 
3. If you do not want to be given a choice of how many ques- 
tions are going to be asked, remove lines 1110 through 1 140 
and insert the following lines: 

1110 PRINT'WE'LL DO TEN QUESTIONS." 
1120 L=10 
This will always cause ten questions to be asked. Of course, 
you can use some number other than ten if you want. 

MAIN ROUTINES 

300-910 Mainline routine. Calls major subroutines. 
1000 - 1200 Prints introduction. Initializes RND function. De- 
termines number of questions to be asked. 
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2000-2300 Reads vocabulary words and definitions into 

arrays. Performs housekeeping. 
3000 - 3200 Selects choices for answers and determines which 

will be the correct one. 
4000-4210 Determines in which format the question will be 

asked. Asks it. 
5000-5330 Accepts answer from operator. Determines if 

right or wrong. Keeps score. Saves subscripts of 

last three correct answers. 
6000 - 6250 Gives final score. Asks about doing it again. 
7000 - 7999 DATA statements with, vocabulary words and 

definitions. 



MAIN VARIABLES 

E Set to 1 to avoid repeating introduction after the 

first round. 
L Limit of number of questions to ask. 

R Work variable to initialize RND. Also used for 

operator's reply to each question. 
C Number of choices of answers given for each 

question. 
D At least one greater than number of DATA 

statements. Used to DIM arrays. 
D$ Array of vocabulary words. 

E$ Array of definitions. 

P Array for numbers of possible answers to each 

question. 
J Work variable (subscript for FOR-NEXT loops). 

Q Number of questions asked so far (later used to 

calculate percent correct). 
Ql Number of questions correct so far. 

P Work variable. 

P1,P2,P3 Last three correct answers. 
A Subscript of correct answer in P array. 

M Work variable to decide which way to ask ques- 

tion. 
R$ Yes or no reply about doing another round. 
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SUGGESTED PROJECTS 

1 . Modify lines 6030 through 6200 to display the final evaluation 
messages based on a finer breakdown of the percent correct. 
For example, show one message if 100 percent, another if 
95 to 99, another if 90 to 94, etc. 

2. Ask the operator's name in the introduction routine, and per- 
sonalize some of the messages with his/her name. 

3. Instead of just checking about the last three questions, be 
sure that the next question has not been asked in the last 
eight or ten questions. (Check lines 3045 and 5300 through 
5320.) 

4. Keep track of which questions the operator misses. Then, 
after going through the number of questions he/she requested, 
repeat those that were missed. 
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INTRODUCTION TO GAME PROGRAMS 

Almost everyone likes to play games. Computer games are a 
fun and entertaining use of your PET. Besides providing relaxa- 
tion and recreation, they have some built-in practical bonuses. 
They often force you to think strategically, plan ahead, or at 
least be orderly in your thought processes. They are also a good 
way to help some friends over their possible "computer phobia." 
We present a collection of games to fit any game playing mood. 

Maybe you desire a challenging all-skill game? like chess or 
checkers, WARI involves no luck and considerable thinking. The 
PET will be your opponent, and a formidable one indeed. 

Perhaps you're in the mood for a game with quick action and 
mounting excitement. GROAN is a fast-paced dice game involving 
mostly luck with a dash of skill (or intuition) thrown in. The 
PET is ready for your challenge anytime. 

JOT is a word game. You and the PET each take secret words 
and then try to home in on each other's selection. 

Do you like solving puzzles? If so, try DECODE. The PET 
will choose a secret code and then challenge you to find it. 
How fast can you do it? 

Graphic electronic arcade games are a prevalent landmark of 
the late seventies. We include two such games. ROADRACE 
puts you behind the wheel of a high speed race car. You must 
steer accurately to stay on course. OBSTACLE lets you and a 
friend compete in a game of cut and thrust. Each of you must 
avoid crossing the path laid by the other, and by yourself! 
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DECODE > 



PURPOSE 

Decode is really more of a puzzle than a game, although you 
can still compete with your friends to see who can solve the 
puzzles the fastest. Each time you play, you are presented with 
a new puzzle to solve. 

The object is to figure out the computer's secret code in as 
few guesses as possible. The program gives you information 
about the accuracy of each of your guesses. By carefully selec- 
ting your guesses to make use of the information you have, you 
can determine what the secret code must be in a surprisingly 
small number of guesses. Five or six is usually enough. 

The first few times you try, you will probably require quite a 
few more guesses than that, but with practice, you'll discover 
that you can learn a lot more from each guess than you origi- 
nally thought. 

HOW TO USE IT 

The program starts off by displaying a brief introduction. 
Here are some more details. 

The program selects a secret code for you to figure out. The 
code is a four digit number that uses only the digits 1 through 6. 
For example, your PET might pick 6153 or 2242 as a secret 
code. 

Your object is to guess the code in the fewest possible guesses. 
After each of your guesses, the program tells you a "black" and 
a "white" number. The black number indicates the number of 
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digits in your guess that were correct-the digit was correct and 
in the correct position. So, if the secret code is 6153 and your 
guess is 4143, you will be told that black is 2 (because the 1 and 
the 3 will have been correct). Of course, you aren't told which 
digits are correct. That is for you to figure out by making use of 
the information you get from other guesses. 

Each of the white numbers indicates a digit in your guess that 
was correct, but which is in the wrong position. For example, 
if the secret code is 6153 and your guess is 1434, you will be 
told that white is 2. The 1 and 3 are correct, but in wrong 
positions. 

The white number is determined by ignoring any digits that 
accounted for a black number. Also, a single position in the 
secret code or guess can only account for one black or white 
number. These facts become significant when the secret code 
and/or your guess have duplicate digits. For example, if the 
code is 1 234 and your guess is 4444, there is only one black, 
and no whites. If the code is 2244 and your guess is 4122, there 
are no blacks and three whites. 

This may sound a little tricky, but you will quickly get the 
hang of it. 

At any time during the game, you can ask for a "SUMMARY" 
by entering an S instead of a guess. This causes the program to 
clear the screen and display each guess (with the corresponding 
result) that has occurred so far. 

Also, if you get tired of trying and want to give up, you can 
enter a Q (for "quit") to end your misery and find out the 
answer. Otherwise, you continue guessing until you get the code 
right (four black, zero white), or until you have used up the 
maximum of twelve guesses. 

SAMPLE RUN 
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•••• DECODE *»•• 



FIGURE OUT A 4 POSITION CODE 
USING THE DIGITS 1 THRU 6 

'BLACK' INDICATES A CORRECT DIGIT 
IN THE RIGHT POSITION. 

'WHITE' INDICATES SOME OTHER CORRECT 
DIGIT, BUT IN THE WRONG POSITION. 

I'VE CHOSEN MV SECRET CODE. 
GUESS NUMBER 1 ? 6413 
GUESS NO. 1 — BLACK 
GUESS NUMBER 2 ? 



The program displays an introduction, chooses its secret code, and asks for 
the operator's first guess. After the operator makes a guess, the program 
responds with a "black" and a "white" number, and asks for the second 
guess. 



GUESS NUMBER 5 ? 4443 
GUESS NO. 5 — BLACK 

VOU GOT IT IN 5 GUESSES. 
...THAT'S PRETTY GOOD 
WANT TO TRV AGAIN? 



Later in the same game, the operator asks Tor a summary, then makes the 
guess that turns out to be correct; The program acknowledges that the 
guess is correct and asks about trying another game. 
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PROGRAM LISTING 

too rem: decode 

110 rem? copyright i?78 by tom rugg and phil feldman 

120 d=6:p=4:l=i2 

130 DIM Gt(L)»G(P)»C<P)fB(L>»U<L) 

140 R=RND(-TI> 

150 GOSUB 1200 

170 GOSUB 300 : GOSUB 370 

180 PRINT"GUESS NUMBER" ?G> 

190 INPUT A$ 

200 IF LEFT*(A*fi)='S" THEN 500 

210 IF LEFT$(A$fl)= M Q M THEN 600 

220 GOSUB 700 

230 GOSUB 800 

240 GOSUB 1000 

250 IF B«G)=P THEN 2000 

260 G«G)=A» 

270 6=G+i:iF G>L THEN 2200 

280 GOTO 180 

300 g---i:c$= u " 

310 RETURN 

370 FOR J=l TO P 

380 R=INT<D*RND<1))+1 

390 C*=C*+MID*(STR*(R)t2»l) 

400 NEXT J 

410 PRINTTVE CHOSEN MY SECRET CODE." 

420 PRINT 

430 RETURN 

500 IF G=l THEN PRINT"NO GUESSES YET"tGOTO 180 

510 PRINT CHR$< 147 >,"SUMMARY M {PRINT 

520 PRINT"NO. GUESS FLACK WHITE" 

530 PRINT JFOR J=l TO G-l 

540 PRINT J»TAB<7);G*(J)»TAB(16)JB<J)}TAB<24)JW< J) 

550 IF G<10 THEN PRINT 

560 NEXT: PRINT 

570 GOTO 180 

600 PRINT 

610 PRINT'TAN'T TAKE IT» HUH?" 

620 PRINT :PRINT"WELL, MY CODE WAS ■} 

630 FOR J=l TO 4 

640 PRINT" ."? 

650 FOR K=l TO 900 {NEXT 

660 NEXT 

670 PRINT C*: PRINT 

680 GOTO 2090 

700 IF LEN<A$)OP THEN 780 
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710 FOR J=l TO P 

720 R=VAL<HID*<A*»Jfl)> 

730 IF R<1 OR R>D THEN 780 

740 NEXT 

750 RETURN 

780 PRINT" ILLEGAL, TRY AGAIN. " 

790 GOTO 180 

800 b=o:w=o 

810 FOR J=l TO P 

820 G{J)=VAL(HID*(A$»J»1)> 

830 C<J)=VAL(MID*<C$»J»1)) 

840 IF G(J)=C<J) THEN B=B+1 !G< J >=OtC< J )=0 

850 NEXT 

860 FOR J=l TO PtIF C( J )=0 THEN 920 

870 h=o:for K=l TO P 

880 if c(j)=0 then 910 

390 if c(j)og(k) then 910 

900 h=i:g(K)=o:c(J)=o 

910 next k:w=u+h 

920 NEXT J 
930 RETURN 

iooo b<g>=b;w<g>=w: print 

1010 print-guess no."rg»"-~ black ="jb?" white ="»w 

1020 PRINTtRETURN 

1200 PRINT CHR*(147)J 

1210 PRINT"**** DECODE ***** 

1220 PRINTSPRINT 

1230 PRINT-FIGURE OUT A" >P»"POSITION CODE" 

1240 PRINT 

1250 PRINT-USING THE DIGITS 1 THRU"»D 

1260 PRINTtPRINT 

1270 PRINT"' BLACK' INDICATES A CORRECT DIGIT" 

1280 PRINTtPRINT"IN THE RIGHT POSITION." 

1290 PRINT 

1300 PRINT" 'WHITE' INDICATES SOME OTHER CORRECT" 

1310 PRINT 

1320 PRINT" DIGIT* BUT IN THE WRONG POSITION." 

1330 PRINTtPRINT 

1340 RETURN 

2000 PRINT 

2010 PRINT"YOU GOT IT IN" ?Gi" GUESSES." 

2020 IF G<5 THEN B*="OUTSTANDING!" 

2030 IF G=5 OR G=6 THEN B*=" PRETTY GOOD" 

2040 IF G=7 THEN B*="NOT BAD" 

2050 IF G=8 THEN B$="NOT TOO GREAT" 

2060 IF G>8 THEN B*=" PRETTY BAD" 

2070 PRINTtPRINT"... THAT'S "»B$ 
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2080 PRINT 

2090 INPUT-WANT TO TRY AGAIN" »A* 

2100 IF LEFT*<A*>1)="Y" THEN 150 

2110 IF LEFT$<A*,1K>"N" THEN 2090 

2120 PRINT:PRINT"COWARD." {PRINT 

2130 END 

2200 PRINT 

2210 PRINT-THAT' S YOUR LIMIT OF" JLJ" GUESSES." 

2220 PRINT 

2230 PRINT-HY CODE WAS 'SC$ 

2240 GOTO 2080 

EASY CHANGES 

1 . Modify line 1 20 to change the complexity of the code and/or 
the number of guesses you are allowed. For example, the 
following line would allow fifteen guesses at a five position 
code using the digits 1 through 8: 

120D=8:P=5:L=15 

The introduction will automatically reflect the new values for 
D and P. Be sure that neither D nor P is set greater than 9. 

2. To change the program so it will always display the "Sum- 
mary" information after each guess automatically, replace 
line 280 with this: 

280 GOTO 500 
MAIN ROUTINES 

1 20 - 170 Initializes variables. Displays introduction. 
Chooses secret code. 

1 80 - 240 Gets a guess from operator. Analyzes reply. Dis- 
plays result. 

250 Determines if operator guessed correctly. 

260 - 280 Saves guess. Adds one to guess counter. Deter- 
mines if limit on number of guesses was exceeded. 

300 - 3 1 Subroutine to initialize variables. 

370-430 Subroutine to choose secret code and inform 
operator. 

500- 570 Subroutine to display summary of guesses so far. 

600-680 Subroutine to slowly display secret code when 
operator quits. 

700 - 790 Subroutine to determine if operator's guess was 
legal. 
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800-930 Subroutine to determine number of black and 

white responses for the guess. 
1000 - 1020 Subroutine to display number of black and white 

responses for the guess. 
1 200 - 1 340 Subroutine to display title and introduction. 
2000-2130 Subroutine to analyze operator's performance 

after correct answer is guessed and ask about 

playing again. 
2200 - 2240 Subroutine to display secret code after operator 

exceeds limit of number of guesses. 

MAIN VARIABLES 

D Number of possible digits in each position of the 

code (i.e., a digit from 1 to D). 
P Number of positions in the code. 

L Limit of number of guesses that can be made. 

G$ Array in which guesses are saved. 

G,C Work arrays in which each guess is analyzed. 

B,W Arrays in which the number of black and white 

responses is saved for each guess. 
R,H Work variables. 

G Counter of the number of guesses made. 

A$ Reply by the operator. 

C$ Secret code chosen by the program. 

J,K Loop variables. 

B,W Number of black and white responses for this 

guess. 
B$ String with message about operator's performance. 

SUGGESTED PROJECTS 

1 . Change the analysis at the end of the game to take into 
account the difficulty of the code as well as the number of 
guesses it took to figure the code out. A four position code 
using the digits 1 through 6 has 1296 possibilities, but a five 
position code using 1 through 8 has 32768 possibilities. 
Change lines 2020 through 2060 to determine the message to 
be displayed based on the number of possibilities in the code 
as well as G. 

2. At the beginning of the game, give the operator the option of 
deciding the complexity of the code. Ask for the number of 
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positions and the number of digits. Make sure only "reason- 
able" numbers are used^do not try to create a code with 
zero positions, for example. Another approach is to ask the 
operator if he/she wants to play the easy, intermediate, or 
advanced version. Then set the values of D and P accordingly. 
Suggestions are: 

Easy: D=3 and P=3 

Intermediate: D=6 and P=4 
Advanced: D=8 and P=5 

3. In addition to using the number of guesses to determine how 
well the operator did, keep track of the amount of time. 
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PURPOSE 

Do you like the thrills of fast-paced dice games? If so, GROAN 
is right up your alley. It is a two-person game with the computer 
playing directly against you. There is a considerable amount of 
luck involved. However, the skill of deciding when to pass the 
dice to your opponent also figures prominently. 

The PET will roll the dice for both players, but don't worry- 
it will not cheat! (We wouldn't think of stooping to such 
depths.) 

Why is the game called GROAN? You will know soon 
after playing it. 

HOW TO USE IT 

The game uses two dice. They are just like regular six-sided 
dice except for one thing. The die face where the "1" would 
normally be has a picture of a frowning face instead. The other 
five faces of each die have the usual numbers two through six 
on them. 

The object is to be the first player to achieve a score agreed 
upon before the start of the game. Players alternate taking turns. 
A turn consists of a series of dice rolls (at least one roll, possibly 
several) subject to the following rules. 

As long as no frown appears on either die, the roller builds a 
running score for this current series of rolls. After each roll with 
no frown, he has the choice of rolling again or passing the dice 
to his opponent. If he passes the dice, his score achieved on the 
current series is added to any previous total he may have had. 
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But if he rolls and a frown appears, he will be groaning. A 
frown on only one die cancels any score achieved for the current 
series of rolls. Any previous score is retained in this case. How- 
ever, if he rolls a double frown, his entire previous total is wiped 
out as well as his current total. Thus, he reverts back to a total 
score of zero— true despair. 

The program begins by asking what the winning score should 
be. Values between 50 and 100 tend to produce the best games, 
but any positive value is acceptable. Next, a simulated coin toss 
randomly decides who will get the first roll. 

Each dice roll is portrayed with a short graphics display. The 
dice are shown rotating and then the outcome is displayed pic- 
torially. Before each roll, the PET indicates whose roll is coming 
up. 

Each roll is followed by a display of the scoreboard. This 
scoreboard gives all relevant information: score needed to win, 
both players' scores before the current series of rolls, and the 
total score for the current series. 

If a frown should appear on a die, the scoreboard will indi- 
cate the current running total as zero. In addition, the previous 
total will become zero in the case of the dreaded double frown. 
In either case, the dice will be passed automatically to the next 
player. 

If a scoring roll results, the roller must decide whether to roll 
again or to pass the dice. The program has a built-in strategy to 
decide this for the PET. For you, the question will be asked 
after the scoreboard is displayed. The two legal replies are P and 
R. The R means that you wish to roll again. The P means that 
you choose to pass the dice to the PET. If you should score 
enough to win, you must still pass the dice to add the current 
series to your previous total. 

The first player to pass the dice with a score greater than or 
equal to the winning score is the victor. This will surely cause 
his opponent to GROAN. The PET will acknowledge the winner 
before signing off. 

SAMPLE RUN 



GROAN 



115 



?ibtH^h mm ii ust, ? 5e 



AND NOW fl COIN TOSS FOR FIRST ROLL 



THE COIN IS IN THE AIR AND 

I GET FIRST ROLL 



The operator has decided to challenge the PET to a fifty point game of 
GROAN. The computer wins the coin toss and gets the first dice roll. 




The PET's roll, however, results in a "groan" and a four. This scores no 
points and the dice pass to the operator. 
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SCOREBOARD 



58 POINTS NEEDED TO WIN 



VOU HAVE ? POINTS THIS SERIES 



<P-PASS DICE - R-ROLL AGAIN) 
VOUR DECISION <P OR R) ? 



Much later in the same game, the operator rolls a 7 to start a series of rolls. 
The score was operator-29, PET-20 before the roll. The operator must now 
decide whether to pass the dice or risk rolling again. 

PROGRAM LISTING 

100 REM GROAN 

110 REM COPYRIGHT 1978 BY PHIL FELBMAN AND TOH RUGG 

150 G=RNB<-TI>{ 

160 S=32768 

170 DL=200 

180 B=166{B=168{U=196 

200 PRINT CHR*< 147 )$TAB< 16 )r"GR0AN" {PRINT 

210 print:print"hou MUCH NEEDED TO WIN"J 

INPUT" < BETWEEN 50-100 IS BEST) "JW 
220 W=INT(W)tIF W<=0 THEN 210 
230 PRINT {PRINTJPRINT" AND NOW A COIN TOSS FOR FIRST 

R0LL"tG0SUB 830 

240 print:print:print"the coin IS IN THE AIR AND" 

250 G$="Y0U"{G=RND<1>{IF Q>.5 THEN G$="I" 

260 PRINTtPRINT SPC<5)JtF0R J=l TO 5{PRINT". ">{ 

GOSUB 830 {NEXT 
270 PRINT G$»" GET FIRST ROLL" {GOSUB 840 
280 T=0{IF Q>.5 THEN 400 
300 P$=" YOU" {PRINT CHR*< 147 )»TAB< 11 )i 

"YOU'RE ROLLING" JGOSUB 830{G0SUB 500 
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310 T=T-fRl+R2JIF F>0 THEN T=0 

320 IF F=2 THEN H=0 

330 GOSUB 850 {IF F>0 THEN PRINT" DICE PASS TO ME"{ 

GOSUB 840 {GOTO 400 
340 PRINT"<P=PASS BICE - R=ROLL AGAIN)" {PRINT? 

PRINT" YOUR DECISION (P OR R) ?" 
350 GET Q*:iF Q$= H " THEN 350 
360 IF G$="R" THEN 300 
370 IF G$<>"P" THEN 350 
380 PRINT :H=H+T: IF H>=W THEN 970 
390 T=0 J F=l SPRINT CHR$< 147 >{ GOTO 330 

400 t=o:p*="I" 

410 PRINT CHR*<147)JCHR*(17>;TAB<12)i"I'H ROLLING" t 

GOSUB 830 t GOSUB 500 
420 T=T+Rl+R2:iF F>0 THEN T=0 
430 IF F=2 THEN P=0 
440 GOSUB 850 : IF F>0 THEN PRINT" DICE PASS TO YOU"? 

gosub 840 :t=o: GOTO 300 

450 GOSUB 1000 J IF X=l THEN PRINT" I'LL ROLL AGAIN"! 

GOSUB 840 : GOTO 410 
460 PRINT'I'LL STOP WITH THIS"JGOSUB 830JP=P+T{ 

IF P>=W THEN 970 
470 PRINT:PRINT m DICE PASS TO YOU" JT=0 {GOSUB 840{ 

GOTO 300 
500 C2=S+420JDL=500 JGOSUB 600{R1=INT<RND< 1 )*6+l >{ 

R2=INT< RND( 1 )*6+l ) 
510 DL=60{C2=C2- 118 JGOSUB 6001C2=C2-77{GOSUB 600{ 

C2=C2+83 {GOSUB 600 
520 C2=C2+122{G0SUB 600{C2=C2+118JGOSUB 600 { 

C2=C2+77JG0SUB 600 
530 C2=C2-83{ GOSUB 600 
540 C2=C2-122JC1=2*(S+417)-C2 
550 C=C1{R=R1 {GOSUB 650 {GOSUB 700 
560 C=C2!R=R2 JGOSUB 650JG0SUB 700{F=0{ 

IF Rl=l THEN F=KNT=5{ GOSUB 800 
570 IF R2=l THEN F=F+1!NT=25{G0SUB 800 
580 IF F=2 THEN GOSUB 820 {GOSUB 830 
590 RETURN 

600 C1=2*<S+417)-C2{C=C1 JGOSUB 650 
610 C=C2 JGOSUB 650 J FOR J=l TO DLJNEXT 
620 PRINT CHR$( 147) J RETURN 
650 POKE C-82j85JP0KE C-78,73 
660 POKE C+78»74JP0KE C+82,75 
670 FOR J=l TO 3 {POKE C-82+J,64 
680 POKE C-78+40*J,93{POKE C-82+J*40,93 
690 POKE C+78+J, 64 {NEXT {RETURN 
700 ON R GOSUB 710 » 730 » 740 t 750 , 760 » 770 {RETURN 
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710 POKE C-41>87IP0KE C-39»87{P0KE C,46{ 

POKE C+3?»85tP0KE C+40r64 
720 POKE C+41f 73: RETURN 
730 POKE C-41»81tP0KE C+41,81 {RETURN 
740 POKE C, 81 {GOSUB 730 {RETURN 
750 GOSUB 730JPOKE C-39»81{P0KE C+39, 81 {RETURN 
760 GOSUB 750 {POKE C, 81 {RETURN 
770 GOSUB 750 {POKE C-1»81JP0KE C+1,81 {RETURN 
800 PRINT CHR«l?)tFOR J=l TO 9J PRINT CHR$< 17 >? {NEXT 
810 PRINT TAB( NT)» "GROAN" JGOSUB 830 1 RETURN 
820 FOR J=l TO 5JPRINT CHR*< 145 )i {NEXTJ 

PRINT TAB< 14 )*CHR*< 18 ) J'DESPAIR" {RETURN 
830 FOR K=l TO ISOO'.NEXTJRETURN 
840 FOR K=l TO 5000 {NEXT {RETURN 
850 PRINT CHR$(19){F0R J=l TO 13{PRINT CHR*(17)f! 

NEXT5PRINTJF0R J=l TO 11 
860 PRINT CHRKBHJNEXTJPRINT" SCOREBOARD "${ 

FOR J=l TO 12JPRINT CHR$< B)J JNEXT 
865 PRINT 
870 GOSUB 960JPRINT CHR$< B )»SPC< 3 )J 

W5"P0INTS NEEDED TO WIN"»TAB< 34 >JCHR$< B ) 
880 PRINT CHIWBKtFOR J=l TO 33JPRINT CHR$<D)J{ 

NEXTJPRINT CHR*< B >JG0SUB 960 
390 PRINT CHR$(B)J" POINTS SCORED YOU HE'S 

TAB(34)»CHR$(B) 
900 PRINT CHR*<B)i" BEFORE THIS" J TAB* 20 >JCHR$< U )» 

CHR$<U)»CHR$(UH 
910 PRINT TAB(28)fCHR$(U)JCHR$(U)}TAB(34)»CHR$(B) 
920 PRINT CHR*<B>>" SERIES" 5TAB< 19 )iHJTAB< 27 )»PJ 

TAB(34)»CHR$(B) 
930 PRINT CHR*<B>;iFOR J=l TO 33 {PRINT CHR$(D)»i 

NEXT{PRINT CHR$(B){GOSUB 960 
940 PRINT CHR*<B)»P**" HAVE" rTf "POINTS THIS SERIES"} 

TAB< 34 )»CHR1«B> {GOSUB 960 
950 FOR J=l TO 35{PRINT CHR$< B )i {NEXTJPRINT5PRINT! 

RETURN 
960 PRINT CHR$<B)JTAB(34)»CHR$CB){RETURN 
970 T=0{PRINT CHR*< 147) JGOSUB 8501 

IF P>=W THEN PRINT {PRINT"SKILL WINS AGAIN" 
980 IF H>=W THEN PRINT" YOU WIN - IT WAS SHEER LUCK" 
990 END 

1000 V=P+TJIF V>=W THEN 1100 
1010 IF (U-HK10 THEN 1110 
10?0 IF P>=H THEN L=T/25{G0T0 1050 
1030 IF y<H THEN L=T/35JG0T0 1050 
1040 L=T/30 
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1050 IF RND(1»L THEN 1110 

noo x=o:return 

1110 X=l J RETURN 
EASY CHANGES 

1 . If you wish to set the program for a fixed value of the winning 
score, it can be done by changing line 210. Simply set W to 
the winning score desired. For example: 

210W=100 

would make the winning score 1 00. 

2. The rotating dice graphics display before each roll can be 
eliminated by 

505 GOTO 550 

This has the effect of speeding up the game by showing each 
dice roll immediately. 

3. After you play the game a few times, you may wish to change 
the delay constants in lines 830 and 840. They control the 
"pacing" of the game; i.e., the time delays between various 
messages, etc. To speed up the game try 

830 FOR K=l TO 7 50: NEXT: RETURN 
840 FOR K=l TO 2500: NEXT: RETURN 

Of course, if desired, the constants can be set to larger values 
to slow down the pacing. 

MAIN ROUTINES 

1 50 - 180 Initializes constants. 

200 - 280 Initial display. Gets winning score. 

300-390 Human rolls. 

400 - 470 PET rolls. 

500 - 590 Determines dice roll. Drives its display. 

600 - 620 Determines moving dice locations. Draws and 

erases dice. 

650 - 690 Draws die outline. 

700 - 770 Draws die face. 

800 - 820 Displays groan messages. 

830 - 840 Delay loops. 

850 - 960 Displays scoreboard. 
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970 - 990 Ending messages. 

1 000 - 1 1 1 PET's strategy. Sets X=0 to stop rolling or X=l to 
continue rolling. 

MAIN VARIABLES 

W Amount needed to win. 

H Previous score of human. 

P Previous score of PET. 

T Score of current series of rolls. 

X PET strategy flag (0=stop rolling; l=roll again). 

L Cutoff threshold used in PET's built-in strategy. 

V Score PET would have if it passed the dice. 

DL Delay length. 

B,D,U CHR$ arguments for border, divider, underline. 

S Starting address of CRT memory area. 

Q,Q$ Work variable, work string variable. 

J,K Loop indices. 

P$ String of name of current roller. 

Rl ,R2 Outcome of roll for die 1 , die 2. 

R Outcome of a die roll. 

F Result of roll (0=no frown; l=one frown; 2=dou- 

ble frown). 

CI ,C2 Poke address of die 1 , die 2. 

C Poke address of a die. 

NT Argument for TAB function. 

SUGGESTED PROJECTS 

1. The PET's built-in strategy is contained from line 1000 on. 
Remember, after a no frown roll, the PET must decide 
whether of not to continue rolling. See if you can improve on 
the current strategy. You may use, but not modify, the varia- 
bles P, T, H, W. The variable X must be set before returning. 
Set X=0 to mean the PET passes the dice or X= 1 to mean the 
PET will roll again. 

2. Ask the operator for his/her name. Then personalize the mes- 
sages and scoreboard more. 

3. Dig into the workings of the graphics routines connected 
with the dice rolling. Then modify them to produce new, 
perhaps more realistic, effects. 
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PURPOSE 

JOT is a two player word game involving considerable mental 
deduction. The PET will play against you. But be careful! You 
will find your computer quite a formidable opponent. 

The rules of JOT are fairly simple. The game is played 
entirely with three-letter words. All letters of each word must be 
distinct-no repeats. (See the section on Easy Changes for 
further criteria used in defining legal words.) 

To begin the game, each player chooses a secret word. The re- 
mainder of the game involves trying to be the first player to 
deduce the other's secret word. 

The players take turns making guesses at their opponent's 
word. After each guess, the asker is told how many letters (or 
hits) his guess had in common with his opponent's secret word. 
The position of the letters in the word does not matter. For 
example, if the secret word was "own," a guess of "who" 
would have 2 hits. The winner is the first person to correctly 
guess his opponent's secret word. 

HOW TO USE IT 

The program begins with some introductory messages while 
asking you to think of your secret word. It then asks whether or 
not you wish to make the first guess. This is followed by you 
and the PET alternating guesses at each other's secret word. 

After the PET guesses, it will immediately ask you how it did. 
Possible replies are 0, 1, 2, 3, or R. The response of R (for right) 
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means the PET has just guessed your word correctly-a truly 
humbling experience. The numerical replies indicate that the 
word guessed by the PET had that number of hits in your secret 
word. A response of 3 means that all the letters were correct, 
but they need to be rearranged to form the actual secret word 
(e.g. a guess of "EAT" with the secret word being "TEA"). 
After learning how it did, the computer will take some time 
to process its new information. If this time is not trivial, the 
PET will display the message: "I'M THINKING" so you do not 
suspect it of idle daydreaming. If it finds an inconsistency in its 
information, it will ask you for your secret word and then 
analyze what went wrong. 

When it is your turn to guess, there are two special replies 
you can make. These are the single letters S or Q. The S, for 
summary, will display a table of all previous guesses and corre- 
sponding hits. This is useful as a concise look at all available 
information. It will then prompt you again for your next guess. 
The Q, for quit, will simply terminate the game. 

When not making one of these special replies, you will input 
a guess at the PET's secret word. This will be, of course, a three 
letter word. If the word used is not legal, the computer will so 
inform you. After a legal guess, you will be told how many hits 
your guess had. If you correctly guess the PET's word, you will 
be duly congratulated. The computer will then ask you for your 
secret word and verify that all is on the "up and up." 

SAMPLE RUN 

JOT 
JUST A MOMENT PLEASE 



THANKS, NOW LET'S EACH THINK 
OF OUR SECRET WORD 

(THIS TAKES ME A WHILE ...) 

I 'VE ALMOST GOT IT . . . 

OK, DO YOU WANT TO GO FIRST? NO 

MY GUESS IS -- NIP 

HOW DID I DO (0-3 OR R)? 1 
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I 'M THINKING . . . 

YOUR GUESS COR S OR Q)? DOG 
tt OF HITS IS 1 

MY GUESS IS -- NOR 

HOW DID I DO C0-3 OR R)? _0 

I 'M THINKING . . . 



(later in the same game) 
YOUR GUESS COR S OR Q)? S. 



YOUR 


GUESSES 


SUMMARY 


MY GUESSES 


WORD 


HITS 








WORD 


HITS 


DOG 


1 




1 




NIP 


1 


CAT 







2 




NOR 





LIP 







3 




DIG 





SON 







4 
5 




PUT 
PUB 


2 
1 


YOUR 


GUESS COR 


S 


OR 


Q)? 


FED 





tt OF HITS IS 2 

MY GUESS IS -- PET 

HOW DID I DO C0-3 OR R)? R 

IT SURE FEELS GOOD 

MY WORD WAS - WED 

HOW ABOUT ANOTHER GAME? NO 
READY. 

PROGRAM LISTING 

100 REM JOT 

110 REM COPYRIGHT 1978 BY PHIL FELDMAN AND TOM RUGG 

150 H=25!N=406!V=250 

160 DIM A$(V)»B*<N-V) 

170 DIM Gl*<M)»G2$(M)rHKM)>H2(M) 
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200 G1=01G2=0 

210 l=n:q=rnd(-ti> 

250 PRINT CHR$(147)»SPC<16)»CHR*<i8)f"J T" {PRINT 

260 PRINT" JUST A MOMENT PLEASE ".GOSUB 3000; 

PRINT ;a=:RNE«i)Mli 

270 print'thanks? now let's each think": 

print" of our secret word" 
280 print :print"( this takes he a while . , , )" 
290 gosub 220o:gosub 20oo:m$=«$:print:print"ok? "» 
300 input"do you want to go first" fq* 

310 Q$=LEFT*(Q*fl):iF Q$="N" THEN 600 

320 IF G$="Y" THEN 500 

330 PRINKPRINT'YES OR NO PLEASE" JPRINTJGOTQ 300 

500 PRINT! INPUT" YOUR GUESS (OR S OR Q)"}P*I 

IP P$="S" THEN GOSUB iOuOtGGTG 500 
510 IF P$="Q" THEN 1100 
520 IF P*=N* THEN G1=G1+1 JG1*< Gl )=P$:H1( Gl )=9; 

GOTO 3400 
530 GOSUB 1800 J IF F=0 THEM PRINT" THAT' S NOT A LEGAL 

WORD — TRY AGAIN" {GOTO 500 

540 q$=h$: gosub 2600 :q*=p$: gosub 1500 
550 print"* of hits is" sq 
560 gi=gi+i:gi*<gi)=q$:hkgi)=q 
570 if g1=m then 3600 

600 Q=LtGOSUB 2000:G2=G2+1:G2*(G2>=Q$ 
610 PRINT:PRINT"HY GUESS IS — "}Qt 
620 INPUT'HOW DID I DO (0-3 OR R)"5P$ 
630 P$=LEFT$(P*fl) 

640 IF P$="R" THEN H2( G2 >=9:G0T0 3200 
650 P=VAL<P$>!IF P>3 OR ( P=0 AND P*<>"0" ) 

THEN PRINT"BAD ANSWER" :GOTO 610 
660 IF L>100 THEN PRINTIPRINT'TM THINKING ..." 
670 H2(G2)=P: GOSUB 800 
680 GOTO 500 
800 Q*=G2*<G2)IH=H2(G2):J=0: GOSUB 2600JL=L-i: 

IF L<1 THEN 900 
810 J=J+i:iF J>L THEN 870 
820 Q=J:G0SUB 2000 {GOSUB 1500 
830 IF Q=H THEN 810 
840 A=J{B=LJ GOSUB 2400JL--L-1 
850 IF L<1 THEN 900 
860 IF L>=J THEN 820 
870 RETURN 

900 PRINT :PRINT"SOMETHING'S WRONG !!" 
910 PRINT;iMPUT"WHAT / S YOUR SECRET WORD"JP$J 

GOSUB 1800 
920 IF F=0 THEN PRIN'HPRINT" ILLEGAL WORD - I NEVER 

HAD A CHANCE": GOTO 1100 
930 PRINT 5PRINT" YOU GAVE A BAD ANSWER SOMEWHERE --" 
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940 PRINT-CHECK THE SUMMARY" {GOSUB 1000 
950 GOTO 1100 

1000 PRINT: Q=Glt IF G2>G1 THEN Q=G2 
1010 IF 0=0 THEN PRINT"NO GUESSES YET" {RETURN 
1020 FOR J=l TO 38tPRINT"-"f JNEXTJPRINT"-" 
1030 PRINT" YOUR GUESSES " JCHR*< 18 )J» SUMMARY"? 
CHR$( 146)5" MY GUESSES" 

1040 PRINT CHR$< 18>» H U0RD"»SPC(2 )»"HITS" } TAB(28)» 

"W0RD"fSPC(2)f"HITS" 
1050 FOR J=l TO QJK=ltIF J>9 THEN K=0 
1060 IF J>G1 THEN PRINT SPC< 17+K >rJJSPC< S ) JG2*< .1 )} 

SPC(2)»H2(J)IG0T0 1090 
1070 IF J>G2 THEN PRINT SPC( 1 )?G1*< J )iSPC( 2 HHK J )J 

SPC(8+K)iJ:GOT01090 
1080 PRINT SPC(l)iGl$<J)}SPC<2)fHl(J)iSPC(8+K)fJJ 

SPC<8)?G2$CJ}JSPC(2)JH2<J) 
1090 NEXT {RETURN 

1100 PRINT{INPUT"HQW ABOUT ANOTHER GAME-JO* 
1110 G*=LEFT$(G$ ? 1)JIF Q$="Y" THEN 200 
1120 IF Q*="N" THEN END 

1130 PRINTJPRINT"YES OR NO PLEASE" {GOTO 1100 
1500 P*=LEFT$(G$,1){«=0! GOSUB 1600 
1510 P$=MID*(Q$f2»1>!G0SUB 1600 
1520 P$=RIGHT*(Q*»1>:G0SUB 160(){RETURN 
1600 IF P*=M1* OR P$=M2* OR P$=H3* THEN Q=Q+1 
1610 RETURN 

1800 j=o;f=o 

1810 j=.j+1iif j>n then return 

1820 g=jjgosub 2000 j if q*op$ then 1810 

1830 F=l {RETURN 

2000 if q>v then g$=b*< g-v ){ return 
2010 q*=a*(q>:return 
2100 if p>v then b«( p-v )=p$ {return 
2110 a*<p)=p* j return 

2200 FOR A=N TO 100 STEP ~i{B=INT<RND( 1 )*A >+l 

2210 GOSUB 2400 {NEXT 

2220 PRINT{PRINT"I'VE ALMOST GOT IT ..♦" 

2230 FOR A=99 TO 2 STEP -1 JB=INT( RND< 1 )*A HI 

2240 GOSUB 2400 {NEXT I RETURN 

2400 Q=AIGOSUB 20©o:p*=g*:q=b 

2410 GOSUB 2000{P=B{GOSUB 2100 {p$=Q* 

2420 P=A{ GOSUB 2100 {RETURN 

2600 Hl*=LEFT*<Q*f 1 )JM2*=HID*( Q$»2fl ) 

2610 M3*=RIGHT*<Q$»1 KRETURN 

3000 RESTORE {FOR P=l TO MJREAD P$ 

3010 GOSUB 2100JNEXTJRETURN 

3200 PRINT{pRINT"IT SURE FEELS GOOD" 

3210 PRINT{PRINT"MY WORD WAS - "JM$ 

3220 GOTO 1100 
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3400 PRINT{PRINT"CGNGRATULATIONS - THAT WAS IT" {PRINT 
3410 INPUF'WHAT WAS YOUR WORD" }p*IG0SUB 1800 !J=1 
3420 IF F=0 THEN PRINT t 

PRINT-ILLEGAL WORD - I HAD NO CHANCE" SGGTQ 1100 
3430 Q=JIGOSUB 2000 { IF Q$=P* THEN PRINT: 

PRINT-NICE WORD" {GOTO 1100 
3440 J=J+1JIF J<=L THEN 3430 
3450 PRINT:PRINT"YOU MADE AN ERROR SOMEWHERE" I 

PRINT"— CHECK THE SUMMARY' 
3460 GOSUB 1000 J GOTO 1100 

3600 PRINTtPRINT"SQRRY? I'M OUT OF MEMORY" {PRINT 
3610 PRINT'MY WORD WAS - "?M*JGOTO 1100 
5000 DATA ACE»ACT?ADE?ADO?ADS?AFT?AGE 
5010 DATA AGO?AID?AIL?AIM?AIR?ALE?ALP 
5020 DATA AND f ANT ? ANY ? APE ? APT ? ARC ? ARE 
5030 DATA ARK?ARM?ART?ASH?ASK?ASP?ATE 
5040 DATA AWE ? AWL ? AXE i AYE ? BAD* BAG? BAN 
5050 DATA BAR? BAT? BAY? BED? BEG? BET? BID 
5060 DATA BIG?BIN?BIT?BQA?BOG?BOW?BOX 
5070 DATA BOY? BUB? BUG? BUM? BUN? BUS? BUT 
5080 DATA BUY?BYE?CAB?CAD?CAM?CAN?CAP 
5090 DATA CAR ? CAT , COB ? COD ? COG? CON? COP 
5100 DATA COT?COW?CQY?CRY?GUB?CUD?CUE 
5110 DATA CUP?CUR?CUT?DAB?BAM?DAY?DEN 
5120 DATA DEW?DIE?DIGfDIMfDIN?DIP?DQE 
5130 DATA DOG ? DON ? DOT ? DRY ? DUB ? DUE ? DUG 
5140 DATA DYEfDUO?EAR?EAT?EG0?ELK?ELM 
5150 DATA END?ELF?ERA?FAD?FAG?FAN?FAR 
5160 DATA FAT?FED?FEW?FIG?FIN?FIR?FIT 
5170 DATA FIX ?FLY? FOE? FOG? FOR? FOX? FRY 
5180 DATA FUN ? FUR ? GAP , GAS ? GAY ? GEM ? GET 
5190 DATA GIN?GNU?GOB?G0D?G0T?GUM?GUN 
5200 DATA GUT ?GUY? GYP? HAD? HAG? HAM? HAS 
5210 DATA HATfHAYfHENfHEXfHIDfHIMfHIP 
5220 DATA HIS f HI T f HER y HEM f HOE? HOG? HOP 
5230 DATA HOT ? HOW f HUB ? HUE ? HUG ? HUM ? HUT 
5240 DATA ICE? ICY? ILK? INK? IMP? ION? IRE 
5250 DATA IRK? ITS? IVY?. JAB?. JAR?. JAW?. JAY 
5260 DATA JOB? JOG?. JOT?. JOY?. JUG?. JAG?. J AM 
5270 DATA JET?JIB? JIG?.JUT?KEG?KEY?KID 
5280 DATA KIN?KIT?LAB?LAD?LAG?LAP?LAW 
5290 DATA LAY?LAX?LED?LEG?LET?LID?LIE 
5300 DATA LIP?LIT?LGB?LOG?LOP?LOT?LOW 
5310 DATA LYE?MAD?MAN?MAP?MAR?MAT?MAY 
5320 DATA MEN?MET?MID?MOB?MOP?MQW?MUD 
5330 DATA MIX?MUG?NAB?NAG?NAP?NAY?NET 
5340 DATA NEW? NIL? NIP? NOB? NOT? NOR? NOW 
5350 DATA NUT? OAF? OAK? OAR? OAT? ODE? OIL 
5360 DATA OLD ?ONE? OPT? ORE? OUR? OUT? OVA 
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5370 DATA OWE ? OWL ? OWN? PAD ? PAL ? PAN? PAR 
5380 DATA PAT , PAW? PAY ? PEA? PEG? PEN ? PET 
5390 DATA PEW?PIE?PIG?PH ?PLY?POH?POT 
5400 DATA P0X?PER?PIN?PR0?PRY?PU8?PUN 
5410 DATA PUS?PUT?RAG?RAM?RAN?RAP?RAT 
5420 DATA RAW? PAY? RED? RIB?RID?REV?RIG 
5430 DATA RIM ?RIP? ROB? ROD? ROE? ROT? ROW 
5440 DATA RUB? RUE? RUG? RUM? RUN? RUT? RYE 
5450 DATA SAD?SAG?SAP?SAT?SAW?SAY?SET 
5460 DATA SEW?SEX?SHY?SEA?SIN?SHE?SIP 
5470 DATA SIR?SIT?SIX?SKI ?SKY?SLY?SOB 
5480 DATA SOD? SON? SOW? SOY? SPA? SPY? STY 
5490 DATA SUE? SUM? SUN? TAB? TAD? TAG? TAN 
5500 DATA TAP ? TAX? TAR? TEA? TEN? THE? THY 
5510 DATA TIC?TIE?TIN?TIP?TOE?T0N?TOP 
5520 DATA TOW? TOY? TRY? TUB? TUG? TWO? URN 
5530 DATA USE?UPS?VAN?VAT?VEX?VIA?VIE 
5540 DATA VIM?VQW?YAK?YAM?YEN? YES?YET 
5550 DATA YOU? WAD? WAG? WAN? WAR? WAS? WAX 
5560 DATA WAY? WEB? WED? WET? WHO? WHY? WIG 
5570 DATA WIN?WIT?WOE?WON?WRY?ZIP?FIB 

EASY CHANGES 
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1 . It is fairly common for players to request a summary before 
most guesses that they make. If you want the program to 
automatically provide a summary before each guess, change 
line 500 to read 

500 GOSUB 1000: PRINT: INPUT" YOUR GUESS (OR Q)";P$ 

2. The maximum number of guesses allowed, M, can be changed 
in line 1 50. You may wish to increase it in conjunction with 
Suggested Project 2. You might decrease it to free some 
memory needed for other program additions. The current 
value of twenty-five is really somewhat larger than necessary. 
An actual game almost never goes beyond fifteen guesses. To 
set M to 1 5 change line 1 50 to read 

150M=15:N=406:V=250 

3. Modifying the data list of legal words is fairly easy. Our cri- 
teria for legal words was as follows: they must have three 
distinct letters and not be 

— capitalized 

— abbreviations 

- interjections (like "ugh", "hey" etc.) 

- specialized words (like "ohm", "sac", "yaw" etc.) 
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In line 1 50, N is set to be the total number of words in the 
data list. The data list itself is from line 5000 on. 
To add word(s), do the following. Enter them in data state- 
ments after the current data (use line numbers larger than 
5570). Then redefine the value of N to be 406 plus the number 
of new words added. For example, to add the words "ohm" and 
"yaw" onto the list, change line 150 to read 

150M=25:N=408:V=250 
and add a new line 

5580 DATA OHM, YAW 

The list is limited to about 460 words before an 8K PET will 
run out of memory. 

To delete word(s), the opposite must be done. Remove the 
words from the appropriate data statement(s) and decrease 
the value of N accordingly. If you should ever reduce N below 
the value of V, redefine V to this new value of N. V, like N, is 
defined in line 1 50. (The array shuffling routine at line 2200 
assumes N will have a value of at least 100.) 

MAIN ROUTINES 

1 50 - 1 70 Dimensions arrays. 

200 - 330 Initializes new game. 

500 - 570 Human guesses at the PET's word. 

600-680 PET guesses. 

800 - 870 Evaluates human's possible secret words. Moves 

them to the front of A$-B$ array. 

900-950 Processes inconsistency in given information. 

1 000 - 1 090 Displays the current summary table. 

1 100 - 1130 Inquires about another game. 

1 500 - 1610 Compares a guess with key word. 

1 800 - 1 83 Checks if input word is legal. 

2000 - 2010 Sets Q$ to Q'th element of A$-B$ array. 

2100 - 21 10 Sets P'th element of A$-B$ array to P$. 

2200 - 2240 Shuffles A$-B$ array randomly. 

2400 - 2420 Swaps elements A and B in the AS-BS array. 

2600 - 26 10 Breaks word Q$ into separate letters. 

3000 - 30 1 Fills A$-B$ array from data. 

3200 - 3220 Post-mortem after PET wins. 

3400 - 3460 Post-mortem after human wins. 
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3600 - 36 1 Error routine - too many guesses. 
5000-5520 Data. 

MAIN VARIABLES 

N Total number of data words. 

V Size of A$ array (250). 

M Maximum number of guesses allowed. 

A$ String array holding first V data words. 

B$ String array holding last (N-V) words. 

Gl $,G2$ String arrays of human's, PET's guesses. 

H1,H2 Arrays of human's, PET's hits corresponding to 

Gl$, G2$. 

G 1 ,G2 Current number of human's, PET's guesses. 

M$ PET's secret word. 
Ml $,M2$, First, second, and third letters of a word 
M3$ 

P$,Q$ String temporaries and work variables. 

L Current number of human's possible secret words. 

F Flag for input word legality. 

H Number of hits in last guess. 

K Formatting variable used in the summary display. 

A,B A$-B$ array locations to be swapped. 

J,P,Q Temporaries; array and loop indices. 



SUGGESTED PROJECTS 

1 . Additional messages during the course of the game can per- 
sonify the program even more. After the PET finds out how 
its last guess did, you might try an occasional message like 
one of these: 

JUST AS I THOUGHT . . . 
HMM, I DIDN'T EXPECT THAT 
JUST WHAT I WAS HOPING TO HEAR 

The value of Lis the number of words to which the computer 
has narrowed down the human's secret word. You might 
check its value regularly and when it gets low, come out with 
something like 

BE CAREFUL, I'M CLOSING IN ON YOU. 
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2. Incorporate a feature to allow the loser to continue guessing 
at the other's word. The summary display routine will 
already work fine even if Gl and G2 are very different from 
each other. It will display a value of "9" for the number of 
hits corresponding to the correct guess of a secret word. 

3. Try to speed up some of the program execution. It is slow 
during the initial array shuffling and after finding out how its 
first few guesses did. There are several reasons for this. One is 
that PET Basic allows a maximum array size of 255. This 
forces keeping the words in two "continuous" arrays, namely 
A$ and B$. Much time is "wasted" in checking which array 
an element is in. Try digging into the internal workings of the 
program with an eye toward lowering the execution time. 
Happy hunting! 
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PURPOSE 

This program allows you and a friend (or enemy) to play the 
game of OBSTACLE, an arcade-like game that's one of our 
favorites. A combination of physical skills (reflex speed, hand 
to eye coordination, etc.) and strategic skills are needed to beat 
your opponent. Each game generally takes only a minute or 
two, so you'll want to play a match of several games to deter- 
mine the better player. 

HOW TO USE IT 

The object of the game is to keep moving longer than your 
opponent without bumping into an obstacle. When the program 
starts, it asks in turn for the name of the player on the left and 
on the right. Then it displays the playing field, shows the starting 
point for each player, and tells you to press any key to start. 

After a key is pressed, each player begins moving indepen- 
dently in one of four random directions-up, down, left, or 
right. As each player moves, he or she builds a "wall" inside the 
playing field. The computer determines the speed of the move; 
the player can only control his own direction. The player on the 
left can change direction to up, down, left, or right by pressing 
the key W, X, A, or D, respectively. The player on the right 
does the same by using the keys for 8, 2, 4, and 6. Find these 
keys on your PET's keyboard and you will see the logic behind 
these choices. 
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The first time either player bumps into the wall surrounding 
the playing field or the obstacle wall built by either player, he 
loses. When this happens, the program indicates the point of 
impact for a few seconds and displays the name of the winner. 
Then the game starts over. 

The strategic considerations for this game are interesting. 
Should you attack your opponent, trying to build a wall around 
him that he must crash into? Or should you stay away from him 
and try to make efficient moves in an open area until your 
opponent runs out of room on his own? Try both approaches 
and see which yields the most success. 

When pressing a key to change direction, be sure to press it 
quickly and release it. Do not hold a key down -you might 
inhibit the computer from recognizing a move your opponent 
is trying to make. Once in a while, only one key will be recog- 
nized when two are hit at once. 

SAMPLE RUN 




The program starts off by asking for the names of the two players. 
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The program draws the playing field and waits for a key to be pressed. 




The program redraws the playing field and starts both players moving in a 
random direction (in this case, both start moving to the left). Phil (on the 
right) doesn't change directions soon enough and crashes into the wall, 
making Tom the winner. 
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program listing 

100 rem: obstacle 

110 rem: copyright 1978 by toil rugg and phil feldman 

120 x=rnd<-ti>: gosub 600 

125 print chr$u47>:print 

130 print tab( 15 ) j chr*< 18 )i "obstacle" 

140 printjprint 

150 print tab(?)»"hit any key to start" 

155 Z=90 

160 AX=10:AY=12JBX=29tBY=12tA=86{B=102 

165 S=32768IE=127JAD=INT<4*RND( 1 ))+l 

167 BD=INT(4*RNB<1))+1 

170 G0SUB 900 t GOSUB 950 

180 GET RttIF R*="" THEN 180 

190 PRINT CHR*<147)> 

200 G0SUB 950! GOSUB 900 

205 FOR J=l TO 10JGET R$tNEXT 

210 x=ax:y=ay:b=ad:gosub 1000 

220 ar=riax=x:ay=y 

230 x=bx:y=by:d=bd:gosub 1000 

240 br=r:bx=x:by=y 

245 if ar=1 or br=1 then 400 

250 GOSUB 900 

255 FOR J=l TO 10 

260 GET R$ 

265 IF R$="W" THEN AD=1 

270 IF R$="X" THEN AD=2 

280 IF R*=»A" THEN AD=3 

290 IF R$= n D" THEN AD=4 

300 IF R$="8" THEN BD=1 

310 IF R$="2" THEN BD=2 

320 IF R$="4" THEN BD=3 

330 IF R$="6" THEN BD=4 

340 NEXT 

350 GOTO 210 

400 GOSUB 700tX=AXIY=AY 

410 IF BR=1 THEN X=BXJY=BY 

420 FOR J=l TO 15 

430 POKE S+40*Y+X»Z 

440 FOR K=l TO 200tNEXT 

450 POKE S+40*Y+XrZ+128 

460 FOR K=l TO 200 {NEXT 

470 NEXT 

4B0 FOR J=l TO 20 {GET R*{NEXT 

490 GOTO 125 

600 PRINT CHR$(147) 

610 INPUT"NAME OF PLAYER ON LEFT"JA$ 
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620 PRINT 

630 INPUF'PLAYER ON RIGHT" >B$ 

640 RETURN 

700 PRINT CHR*<19>» 

710 FOR J=l TO 12 

720 PRINT CHR*(17)INEXT 

730 IF AR=1 AND BR=1 THEN PRINT" YOU BOTH LOSE!' 

RETURN 
740 R$=A$:iF AR=1 THEN R$=B$ 
750 PRINT R*» M WINS! "J 
760 RETURN 

900 POKE <S+40*AY+AX)»A 
910 POKE <S+40*BY+BX)»B 
920 RETURN 
950 FOR X=0 TO 3? 
960 POKE S+X»EJPOKE S+880+X»E 
970 NEXT: FOR Y=0 TO 22 

980 POKE <S+40*YhEiPOKE (S+40*Y+39)»EJNEXT 
990 RETURN 

1000 IF D=l THEN Y=Y-1 
1010 IF D=2 THEN Y=Y+1 
1020 IF D=3 THEN X=X-1 
1030 IF 0=4 THEN X=X+1 
1040 R=0 

1050 IF PEEK* S+40*Y+X )<>32 THEN R=l 
1060 RETURN 



EASY CHANGES 

1 . To speed the game up, change the 1 in line 255 to a 5 or so. 
To slow it down, make it 1 5 or 20. 

2. To make both players always start moving upward at the 
beginning of each game (instead of in a random direction), 
insert the following statement: 

168AD=1:BD=1 

To make the players always start off moving toward each 
other, use this statement instead: 

168AD=4:BD=3 

3. You can change the graphics characters used in the display. 
To change each player's "marker," change the value of A 
and/or B in line 160 from their current values of 86 and 102. 
A is the player on the left, B is on the right. Some good num- 
bers to try are 81, 83, 87, 90, and 160. 
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4. To change the length of time that the final messages are dis- 
played after each game, modify line 420. Change the 1 5 to 5 
(or so) to shorten it, or to 30 to lengthen it. 

MAIN ROUTINES 

1 20 - 170 Initializes variables. Gets players' names. Displays 

titles, playing field. 
1 80 - 200 Waits for key to be pressed to start game. Re-dis- 
plays playing field. 
210 - 250 Makes move for player A (on left side) and B (on 

right). Saves results. 
255 - 350 Accepts moves from keyboard and translates 

direction. 
400 - 490 Displays winner's name at bottom of screen. 

Flashes a diamond where collision occurred. Goes 

back to start next game. 
600 - 640 Subroutine that gets each player's name. 
700 - 760 Subroutine that displays winner's name. 
900 - 920 Subroutine that POKE's each graphics character 

of each player's obstacle on the screen. 
950 - 990 Subroutine that displays playing field. 
1000-1060 Subroutine that moves marker and determines 

if space moved to is empty. 

MAIN VARIABLES 

AX,AY Coordinates of player A's current position. 

BX,BY Coordinates of player B's current position. 

A A's marker (numeric value of graphics character). 

B B's marker. 

S Starting address of CRT memory area. 

AD,BD Current direction that A and B are going (l=up, 

2=down, 3=left, 4=right). 

E Graphics character for edge of playing field. 

R$ Character being read from keyboard. 

X,Y Temporary work coordinates. 

AR,BR Result of A's and B's moves (0=okay, l=loser). 

A$,B$ Names of players A and B. 

Z Graphics character displayed when collision is 

made (must be an integer from to 127). 

J,K Subscript variables. 
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SUGGESTED PROJECTS 

1 . Change the size of the playing field. The 39 in line 950 is the 
width, and the 22 in line 970 is the height. Note that line 160 
has the starting coordinates of the two players (AX, AY, BX, 
and BY). You may want to change these if you make the 
field smaller. 

2. Keep score over a seven game (or so) match. Display the cur- 
rent score after each game. Don't forget to allow for ties. 

3. Modify the program to let each player press only two keys- 
one to turn left from the current direction of travel, and one 
to turn right. 

4. Instead of a game between two people, make it a game of a 
person against the computer. Develop a computer strategy to 
keep finding open areas to move to and/or to cut off open 
areas from the human opponent. 
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ROADRACE 



PURPOSE 

Imagine yourself at the wheel of a high-speed race car winding 
your way along a treacherous course. The road curves unpre- 
dictably. To stay on course, you must steer accurately or risk 
collision. How far can you go in one day? How many days will 
it take you to race cross-country? Thrills galore without leaving 
your living room. 

The difficulty of the game is completely under your control. 
By adjusting the road width and visibility conditions, ROAD- 
RACE can be made as easy or as challanging as you wish. 

HOW TO USE IT 

The program begins with a short graphics display. It then asks 
you for two inputs: road width and visibility. The road width 
(in characters) can be set anywhere between 3 and 12. The 
degree of difficulty changes appreciably with different widths. 
A very narrow setting will be quite difficult and a wide one 
relatively easy. Visibility can be set to any of four settings, 
ranging from "terrible" to "good." When visibility is good, the 
car appears high on the screen. This allows a good view of the 
twisting road ahead. When visibility is poor, the car appears 
low on the screen allowing only a brief look at the upcoming 
road. 

Having set road width and visibility, the race is ready to start. 
The car, represented by an asterisk (*), appears on the road at 
the starting line. A five-step starting light counts down the 
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start. When the bottom light goes on, the race begins. The road 
moves continually up the screen. Its twists and turns are con- 
trolled randomly. You must steer the car accurately to keep it 
on track. 

The car is controlled with the use of two keys on the numeric 
keypad. Pressing the 4 will cause the car to move to the left 
while pressing the 6 will cause a move to the right. Doing neither 
will cause the car to continue straight down. 

The race proceeds until the car goes "off the road." Each 
such collision is considered to terminate one day of the race. 
After each day, you are shown the number of miles achieved 
that day along with the cumulative miles achieved for consecu- 
tive days of the race. 

After each collision, you can proceed by pressing either C, R, 
or Q. Selecting C will continue the race for another day with 
the same road conditions. Cumulative totals will be retained. R 
will restart the race. This allows changing the road conditions 
and initializing back to day one. Q simply quits the race and 
returns the PET back to direct Basic. Either of the last two 
options will produce a display of the average miles travelled 
per day for the race. 

There are several different ways to challenge yourself with 
the program. You can try to see how far you get in a given num- 
ber of days. You might see how many days it takes you to go a 
given number of miles-say 3000 miles for a cross-country trip. 
As you become proficient at one set of road conditions, make 
the road narrower and/or the visibility poorer. This will increase 
the challenge. Different road conditions can also be used as a 
handicapping aid for two unequally matched opponents. 

SAMPLE RUN 
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The program displays its logo and begins the short input phase. The opera- 
tor selects to run a course with a 6 character road width. 



ROAD WIDTH (3-12)? 6 
VISIBILITY CONDITIONS 



VISIBILITY <i-4>? 3 



The operator selects fair visibility and the race is ready to begin. 



142 
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The car, represented by the asterisk (*), is on the starting line. The starting 
light counts down the beginning of the race. When the last light goes on, 
the race will be off and running. 




The operator, steering the car from the keyboard, finally crashes. A dis- 
tance of 72 miles is obtained on this leg for a total of 242 miles in 3 days 
(legs). The options for continuing are displayed while the program waits 
for the operator's choice. 
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PROGRAM LISTING 

10 REM ROADRACE 

110 rem copyright 1978 by phil feldman and tom rugg 
120 g=o:g*="" 
130 lc=.45RC=i-lc 

140 RS=167:LS=165JLT=206JRT=205 

150 L$="4"{R*="6" ' 

160 B=32{PC=42{EL=25ER=37 

170 GOSUB 800 

200 print:print{t=o;n=o 

210 input-road width <3-12>'sw 

220 w=int<w){if u<3 or w>12 then 210 

230 print {print" visibility conditions" 

240 print" 1 - terrible" 

250 print" 2 - bad" 

260 print" 3 - fair" 

270 print" 4 - good" {print 

280 INPUT-VISIBILITY < l-4)"fV:V=INT( V) 

290 IF V<1 OR V>4 THEN 280 

300 N=N+lJL=14JR=L+U+2iZ=33808-120*V 

310 C=INT((L+R)/2)+l 

320 FOR J=l TO 26JGET G*{GOSUB 60O5NEXT 

330 Q=RNI«-TI>:GOSUB 700 

350 Q=RND<l):iF Q>RC AND R<ER THEN GOSUB 640 {GOTO 400 

360 IF G<LC AND L>EL THEN GOSUB 620 {GOTO 400 

370 GOSUB 600 

400 A=PCJGET GSIIF Q*=L* THEN C=C-1 

410 ZC=Z+C:iF Q*=R* THEN C=C+1 

420 G=PEEK(ZC)IIF GOB THEN A=170 

430 POKE ZCfAJIF A=PC THEN 350 

440 H=TI-H:iF H<0 THEN H=H+5184000 

450 h=int(h/io>:t=t+m:print 

460 print"y0u went" 5m"miles for a" 

470 print-total of" 5tj "miles in" jn»"day< s )" {print 

480 print-hit 'c - continue race" 

490 print" 'r' - restart race" 

500 print" 'q' - quit 

510 get q*iif g$="c" then 300 

520 if q$<>"r" and q«<>"q" then 510 

530 print{print"average miles per day="»t/n 

540 if g$="r" then 200 

550 END 

600 PRINT TAB<L)fCHR$(RS>rCHR«<RS)rTAB(R)iCHR$(LS)r 

CHR$< LS ) 
610 RETURN 
620 PRINT TAB<L);CHR*(LT>;CHR$<LT)?TAB<R-l)f 

CHR*<LT>»CHR*<LT> 
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630 l=l-i:r=r-i {return 

640 PRINT TAB(L+l)JCHR*(RT>iCHR$<RT)rTAB(R)f 

chr*(rt);chr*<rt) 
650 l=l+i:r=r+i: return 
700 a=pctp0ke z+c,aip=z-232{p0ke p,85 
710 poke p+1,64{p0ke p+2,73 

720 FOR J=l TO 55POKE P+40*J,93 

730 POKE P+40*:J*1,87{POKE P+40*J+2,93 

740 NEXTt POKE P+240,74{POKE P+241,64 

750 POKE P+242»75{FOR J=l TO 900 {NEXT 

760 FOR J=l TO 5JF0R K=i TO 400 {NEXT 

770 POKE P+l +40* J, 81 {NEXT 

780 H=TIJ RETURN 

800 DIM D<9>{L=14{R=22{PRINT CHR*(147); 

810 FOR J=l TO 9 {READ EKJKNEXT 

820 DATA 18,15,1,4,13,1,3,5,42 

830 FOR J=l TO 2JG0SUB 600 1 NEXT 

840 FOR J=l TO 3JG0SUB 640 J NEXT 

850 FOR J=l TO StGOSUB 620 {NEXT 

860 FOR J=l TO 10IGOSUB 640 {NEXT 

870 P=32786{P0KE P,PC 

880 FOR J=l TO 500 {NEXT 

890 FOR J=l TO 2{F-P+40{GOSUB 950 {NEXT 

900 FOR J=l TO 3{P=P+41{G0SUB 950 {NEXT 

910 FOR J=l TO 4{p=P+39JG0SUB 950 {NEXT 

920 P=P+40:GOSUB 950 

930 FOR J=l TO 9{P=P+41{G0SUB 950 

940 POKE P,D( J) {NEXT {PRINT {RETURN 

950 POKE P, PC {FOR K=l TO 50 {NEXT {RETURN 

960 POKE P, PC I FOR K=l TO 50 1 NEXT {RETURN 

EASY CHANGES 

1 . The keys which cause the car to move left and right can be 
easily changed. You may wish to do this if you are left- 
handed or find that two widely separated keys would be 
more convenient. The changes are to be made in line 150. 
Left and right movements are controlled by the two string 
variables L$ and R$. If, for example, you wanted A to cause 
a left move and 3 to cause a right move, change line 150 to 
read 

150L$="A":R$="3" 

2. The amount of windiness in the road can be adjusted by 
changing the value of LC in line 130. Maximum windiness is 
achieved with a value of 0.5 for LC. To get a straighter road, 
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make LC smaller. A value of 0. will produce a completely 
straight road. LC should lie between 0. and 0.5 or else the 
road will drift to one side and linger there. To get a somewhat 
windier road, you might change line 130 to read 

130LC=0.45:RC=1-LC 

MAIN ROUTINES 

120 - 170 Variable initialization. 

200 - 290 Gets road conditions from user. 

300-330 Initializes the road. 

350 - 370 Determines the next road condition. 

400 - 430 Updates the car position. 

440 - 550 Processes end of race day. 

600 - 650 Draws next road segment. 

700 - 780 Graphics to begin race. 

800-960 Initial graphics display. 



MAIN VARIABLES 

W Road width. 

V Visibility. 

M Miles driven on current day. 

N Number of days of the race. 

T Total miles driven for whole race. 

H Elapsed time during race. 

L$,R$ String characters to move car left, right. 

L,R Position of left, right side of road. 

LC,RC Random value cutoff to move road left, right. 

EL,ER Leftmost, rightmost allowable road position. 

Q$ User replies. 

C Position of car. 

Z,ZC POKE arguments for car location. 

RS,LS, Arguments of CHR$ for road segments. 

LT,RT 

B,PC POKE arguments for graphics. 

A,P POKE arguments. 

D Array of POKE arguments for display message. 

J,K,Q Loop indices and work variables. 
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SUGGESTED PROJECTS 

1. Write a routine to evaluate a player's performance after each 
collision. Display a message rating him anywhere from 
"expert" to "back seat driver." This should involve comparing 
his actual miles achieved against an expected (or average) 
number of miles for the given road width and visibility. For 
starters, you might use 

Expected miles = W 3 + (10*V) - 35 

This formula is crude, at best. The coding can be done be- 
tween lines 550 and 600. 

2. Incorporate provisions for two players racing one at a time. 
Keep cumulative totals separately. After each collision, dis- 
play the current leader and how far he is ahead. 

3. Add physical obstacles or other hazards onto the road in 
order to increase the challenge. These can be done with 
appropriate POKE statements before the various RETURNs 
in lines 600-650. Warning: Be sure the address arguments of 
any POKEs lie between 32768 and 33767. Anything else 
may result in hanging up your system. The program will 
recognize a collision if the car moves into any non-blank 
square. 



WARI 



PURPOSE 

Wari is an old game with roots that are even older. Its origins 
go back thousands of years to a variety of other similar games, 
all classified as being members of the Mancala family. Other 
variations are Awari, Oware, Pallanguli, Kalah, and countless 
other offshoots. 

The program matches you against the computer. You are 
probably going to lose a few games before you win one—the 
computer plays a pretty good game. This may hurt your ego a 
little bit, since Wari is purely a skill game (like chess or checkers). 
There is no element of luck involved, as would be the case with 
backgammon, for example. When you lose, it's because you 
were outplayed. 

HOW TO USE IT 

When you start the program, the first thing it does is display 
the Wari board and ask you if you want to go first. The board 
is made up of twelve squares in two rows of six. Your side is 
the bottom side, numbered one through six from left to right. 
The computer's side is on the top, numbered seven through 
twelve from right to left. 

At the start of the game, each square has four "stones" in it. 
There is no way to differentiate between your stones and the 
computer's. They all look alike and will move from one side to 
the other during the course of play. 

The first player "picks up" all the stones in one of the squares 
on his side of the board and drops them, one to a square, starting 
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with the next highest numbered square. The stones continue to 
be dropped consecutively in each square, continuing over onto 
the opponent's side if necessary (after square number 1 2 comes 
square number 1 again). 

If the last stone is dropped onto the opponent's side and 
leaves a total of either two or three stones in that square, these 
stones are captured by the player who moved, and removed 
from the board. Also, if the next-to-last square in which a stone 
was dropped meets the same conditions (on the opponent's side 
and now with two or three stones), its stones are also captured. 
This continues backwards until the string of consecutive squares 
of two or three on the opponent's side is broken. 

Regardless of whether any captures are made, play alternates 
back and forth between the two players. 

The object of the game is to be the first player to capture 
twenty-four or more stones. That's half of the forty-eight 
stones that are on the board at the beginnning of the game. 

There are a few special rules to cover some situations that can 
come up in the game. It is not legal to capture all the stones on 
the opponent's side of the board, since this would leave the 
opponent with no moves on his next turn. By the same token, 
when your opponent has no stones on his side (because he had 
to move his last one to your side on his turn), you have to make 
a move that gives him at least one stone to move on his next 
turn, if possible. If you cannot make such a move, the game is 
over and counted as a draw. 

During the course of the game, it's possible for a square to 
accumulate twelve or more stones in it. Moving from such a 
square causes stones to be distributed all the way around the 
board. When this happens, the square from which the move was 
made is skipped over. So, the square moved from is always left 
empty. 

It takes the computer anywhere from five seconds to about 
thirty seconds to make a move, depending on the complexity of 
the board position. The word THINKING is displayed during 
this time, and a period is added to it as each possible move is 
evaluated in sequence (seven through twelve). 

If you accidentally end the program by pressing the RETURN 
key without first entering your move, remember that you can 
continue the program by using Basic's CONT command. It's a 
good idea to move the cursor up a couple of lines before using 
this command, however, to avoid causing the screen to roll up. 
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SAMPLE RUN 




The program starts off by drawing the playing "board" and asking who 
should move first. The operator decides to go first. 



CAPTURED 



COMPUTER 8 



VOU 
VOUR MOVE? 3 
THINKING 



The program asks for the operator's move. He or she decides to move 
square number 5. The program alters the board accordingly, and begins 
"thinking" about what move to make. 
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CAPTURED 



COMPUTER 23 



VOUR MOVE? 3 
THINKING. . 



Later in the same game, the computer is about to move square number 1 2, 
which will capture two more stones and win the game. 

PROGRAM LISTING 

100 REM J WAR I 

110 REM: COPYRIGHT 1978 BY TOM RUGG AND PHIL FELDMAN 

120 J=1JK=1!Q=14{P=131F=50:D=12 

130 DIM T<Q>»Y(Q>»U(Q)»V<6)fE(6)»B(Q> 

140 wa=rnd( -ti >:wb=rnd< 1 )jub=hb/q:wa=.25+wbj 

ub=.25-wb:g0sub 750 
150 for j=i to djb(J)=4jnext:b<p)=o:b<q)=o:hn=o: 

G0SUB 1200tG0SUB 900 
160 G0SUB 990 t INPUT" WANT TO GO FIRST" >R* 
170 G0SUB 990JPRINT D«tR$=LEFT*( R«il )5 

if r$="y" then 250 
180 if r$<>"n" then 160 
190 gosub io5o:print d*;d$»d»:gosub ioso:. 

print"thinking"»tg0sub 510 

195 IF M<1 THEN 2000 

200 GOSUB 1050JPRINT DfJGOSUB 1050J 

PRINT" MY MOVE IS"»N 
210 FOR J=l TO QtT(.J)=B<J):NEXTtG0SUB 350 
220 FOR J=l TO Q{B(J)=T<J)tNEXT{GOSUB 900 
230 IF B<QK24 THEN 250 
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240 GOSUB 1050tPRINT"I WIN! " ?D$5G0T0 810 

250 GOSUB 990 1 PRINT D* J D$ t GOSUB 990 5 

INPUT "YOUR MOVE"?R$ 

260 M=INT(VAL(R*))tIF H>6 OR M<1 THEN 330 

270 FOR J=l TO Q{T<J)=B(.J):NEXT 

280 gosub 350 : if m<0 then 330 

290 for j=i to q:b<j>=t<j):next 

300 mn=hn+i:gosub 900 

310 print: if b(p)<24 then 190 

320 gosub 1050tprint"you win! b jd*jg0t0 810 

330 GOSUB 990JPRINT TAB< 15 >5CHR*< 18 );» ILLEGAL" 

■ 340 FOR J=l TO 3000 : NEXT! GOTO 250 

350 IF T(M)=0 THEN M=-l I RETURN 

360 R$="H":iF M>6 THEN R$="C"tGOTO 380 

370 FOR J=l TO Q:Y(J)=T(J):NEXT:G0T0 400 

380 FOR J=l TO 6:Y(J)=T(J+6):Y(J+6)=T(J):NEXT 

390 Y(P)=T(Q)JY(Q)=T(P):H=M-6 

400 C=MtN=Y(C)JFOR J=l TO NJC=C+1 

410 IF C=P THEN C=l 

420 IF C=M THEN C=C+ltGOTO 410 

430 y(o=y(o+i:next:y(M)=o:l=c 

440 if l<7 or y< l »3 or y( l )<2 then 460 

450 y(p>=y(P)+y<d:y(L)=o:l=l-i:goto 440 

460 s=o:for j=7 to d:s=s+y(j>:next 

470 IF s=o then m=-2: return 

480 if r$= m h" then for j=i to q:t( j>=y< j >:next: 

return 

490 for j=i to 6:t<j)=y<j+6>:t<j+6>=y<j>:next 

500 T(Q)=Y(P)JT(P)=Y(Q):RETURN 

510 FOR A=l TO 6J«=A+6 

520 IF B(M)=0 THEN E<A)=-F:G0T0 690 

530 for j=i to q:t<j)=b<j):next:gosub 350 

540 if m<0 then e<a)=-f{g0t0 690 

550 if t<q»23 then m=a+6{return 

560 for j=i to q:w<j>=t<j):next:for k=i to 6 

570 if t(k)=0 then v<k)=f{goto 670 

580 for j=i to q:t<j)=w<j):next:m=k:gosub 350 

590 IF M<0 THEN V<K)=FtGOTO 670 

6oo fa=o:fb=o:fc=o:fd=o:for j=7 to d 

610 fb=fb+t(j>!if t(j)>0 then fa=fa+1 

620 if t(jk3 then fc=fc+1 

630 if t< j )>fd then fb=t( j ) 

640 nextjfe=fb:for j=l to 6jfe=fe+t(j):next 

650 fa=fa/6 j fd=1 -fd/fb { fc=1 -fc/6 t fb=fb/fe 

660 v( k )=wa*< fa+fb >+wb*< fc+fd )+t< q )+b< p >-b< q )-t< p ) 

670 next:e<a)=f:for j=i to 6: 
if m(jke(a) then e<a)=v(j) 

680 NEXT 
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6?o print","? : next: m=o:a=-r FOR J=l TO 6 

700 IF E<J»A THEN A=E< J KM=.J+6 

710 NEXTt RETURN 

750 A$=" "JFOR J=l TO 24:A*=A$+CHR$( 164 KNEXT 

760 B$=CHR*(167):F0R J=l TO 6:BH>=B*+ m "+CHR$<167>t 

NEXT 

770 C$=CHR$<167):F0R J=l TO 6 

780 C$=C$+CHR$( 164 )+CHR$ < 164 >+CHR$< 164 >+CHR$< 186 > 

7?o next:d*=" ":for j=i to s:d$=d*+d$:next 

800 RETURN 

810 PRINT:J=ABS(B<P)-B(Q))JIF J<10 THEN 830 

820 PRINT" IT WASN'T EVEN CLOSE! "{GOTO 840 

830 PRINT-GOOD GAME!" 

840 PRINT:iNPUT"WANT TO PLAY AGAIN" JR$ 

850 R$=LEFT*(R*»i)!IF R*="Y" THEN 140 

860 IF R$0"N" THEN 840 

870 print:print:print h see YOU LATER" 

880 print:print:end 

900 print chr*<19)> 

910 FOR j=i to 4:print CHR*(17>tNEXT 

920 FOR J=0 TO 5JPRINT TAB< 4*J+1 >?B< 12-J )r i 

IF B(12-J)=0 THEN GOSUB 1100 
930 NEXTt PRINT TAB( 27 )r "COMPUTER" JB< Q ) 
940 PRINT CHR$«17>:F0R J=0 TO 5 
950 PRINT TAB<4*J«)»B(J+1>J: 

IF B<J+1)=0 THEN GOSUB 1100 
960 NEXT: PRINT TAB02 >»"Y0U" »B< P ) 
970 RETURN 
990 PRINT CHR$<19>; 
1000 FOR J=l TO 9JPRINT CHR$<17)JNEXT 
1010 RETURN 

1050 GOSUB 990:PRINT CHR*< 17 KRETURN 
1100 PRINT CHR$(157)f" "t 
1110 RETURN 

1200 PRINT CHR*(147)5TAB<16)?"W A R I" 
1210 PRINT TAB(15)»LEFT$<A$f8):PRINT 
1220 PRINT TAB(8)5"COMPUTER":PRINT 
1230 FOR ,1=0 TO 5JPRINT TABUM+1 >J12-Ji JNEXT 
1240 PRINT TABOO >J "CAPTURED": 

PRINT A$»TAB<29)JLEFT*<A$r9):F0R J=l TO 2 

1250 print btjprint b*:print csjnext {print 

1260 for j=0 to stprint tab( 4*j+1 )}j+1» jnext 

1270 print:print:print tab<ii>?"you" 

1280 pr i nt {return 

2000 pr i nt" no legal moves," 

20 10 pr i nt" game is a draw." 

2020 GOTO 840 
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EASY CHANGES 

1. Change the length of time the ILLEGAL message is displayed 
after an illegal move is attempted by changing the number 
3000 in line 340. Double it to double the length of time, etc. 

2. Want a faster moving game against an opponent who isn't 
quite such a good player? Insert the following two lines: 

kS^ 555 GOTO 600 k V° 

t^f b"665 E(A)=V(K):GOTO 690 g^o* 

In the standard version of the game, the computer looks at 
each of its possible moves and each of your possible replies 
when evaluating which move to make. This change causes 
the computer to only look at each of its moves, without 
bothering to look at any of your possible replies. As a result, 
the computer does not play as well, but it takes only a few 
seconds to make each move. 

3. If you are curious about what the computer thinks are the 
relative merits of each of its possible moves, you can make 
this change to find out. Change line 690 so it looks like this: 

i"«rr 690 PRINT E(A);:NEXT:M=0: A=-F:FOR J=l TO 6 

This will cause the program to display its evaluation number 
for each of its moves in turn (starting with square seven). It 
will select the largest number of the six. A negative value 
means that it will lose stones if that mpve is made, assuming 
that you make the best reply you can. A value of negative 50 
indicates an illegal move. A positive value greater than one 
means that a capture can be made. 



MAIN ROUTINES 

1 20 - 150 Initializes variables. Displays board. 

1 60 - 180 Asks who goes first. Evaluates answer. 

1 90 - 220 Determines computer's move. Displays new board 
position. 

230 - 240 Determines if computer's move resulted in a win. 
Displays a message if so. 

250-300 Gets operator's move. Checks for legality. Dis- 
plays new board position. 

310-320 Determines if operator's move resulted in a win. 



330- 


340 


350- 


500 


360- 


390 


400- 


430 


440- 


■450 


460- 


■470 


480- 


-500 


510- 


-710 


750- 


-800 


810- 


-880 


900 


-970 


990 


- 1010 
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Displays message if illegal move attempted. 

Subroutine to make move M in T array. 

Copies T array into Y array (inverts if computer 

is making the move). 

Makes move in Y array. 

Checks for captures. Removes stones. 

Checks previous square. 

Sees if opponent is left with a legal move. 

Copies Y array back into T array. 

Subroutine to determine computer's move. 

Subroutine to create graphics strings for board 

display. 

Evaluates final score. Asks about playing again. 

Subroutine to display stones on board and 

captured. 

Subroutine to move cursor to "YOUR MOVE" 

position on screen. 
1050 Subroutine to move cursor to "MY MOVE" 

position on screen. 
1100- 1110 Subroutine to backspace cursor one space and 

display one blank character. 
1 200 - 1 280 Subroutine to display Wari board (without 

stones). 
2000 - 2020 Displays messages when computer has no legal 

move. 



MAIN VARIABLES 

J,K Subscript variables. 

Q,P,F,D Constant values of 14, 13, 50 and 12, respectively. 

T,Y,W Arrays with temporary copies of the Wari board. 

V Array with evaluation values of operator's six 

possible replies to computer's move being con- 
sidered. 

E Array with evaluation values of computer's six 

possible moves. 

B Array containing Wari board. Thirteenth element 

has stones captured by operator. Fourteenth has 
computer's. 

WA,WB Weighting factors for evaluation function. 

MN Move number. 
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R$ Operator's reply. Also used as switch to indicate 

whose move it is. 
M Move being made (1 - 6 for operator, 7 - 12 for 

computer). Set negative if illegal. 
C Subscript used in dropping stones around board. 

L Last square in which a stone was dropped. 

S Stones on opponent's side of the board after a 

move. 
A Subscript used to indicate which of the six 

possible computer moves is currently being 

evaluated. 
FA First evaluation factor used in determining favora- 

bility of board position after a move (indicates 

computer's number of occupied squares). 
FB Second evaluation factor (total stones on compu- 

ter's side of the board). 
FC Third evaluation factor (number of squares with 

two or less stones). 
FD Fourth evaluation factor (number of stones in 

most populous square on computer's side). 
FE Total stones on board. 

A$,B$,C$ Strings of graphics characters used to display the 

Wari board. 
D$ String of thirty-two blanks. 

SUGGESTED PROJECTS 

1 . Modify the program to declare the game a draw if neither 
player has made a capture in the past thirty moves. Line 300 
adds one to the counter of the number of moves made. To 
make the change, keep track of the move number of the last 
capture, and compare the difference between it and the cur- 
rent move number with 30. 

2. Modify the evaluation function used by the computer strategy 
to see if you can improve the quality of its play. Lines 600 
through 660 examine the position of the board after the 
move that is being considered. Experiment with the factors 
and/ or the weighting values, or add a new factor of your own. 

3. Change the program so it can allow two people to play against 
each other, instead of just a person against the computer. 
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Section 4 
Graphics Display Programs 



INTRODUCTION TO GRAPHICS DISPLAY PROGRAMS 

The PET is an amazing machine. It has special graphics capa- 
bilities not found on other similar computers. Programs in the 
other sections of this book take advantage of these graphics to 
facilitate and "spice up" their various output. Here we explore 
the use of the PET's graphic capabilities for sheer fun, amuse- 
ment, and diversion. 

Ever look through a kaleidoscope and enjoy the symmetric 
changing patterns produced? KALEIDO will create such effects 
with full eight point symmetry. 

Two other programs produce ever changing patterns but with 
much different effects. SPARKLE will fascinate you with a 
changing shimmering collage. SQUARES uses geometric shapes 
to obtain its pleasing displays. 

WALLOONS demonstrates a totally different aspect of the 
PET's graphic abilities. This program will keep you entertained 
with an example of computer animation. 
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KALEIDO 



PURPOSE 

If you have ever played with a kaleidoscope, you were pro- 
bably fascinated by the endless symmetrical patterns you saw 
displayed. This program creates a series of kaleidoscope-like 
designs, with each one overlaying the previous one. The designs 
are symmetrical about eight axes-can you find them? 



HOW TO USE IT 

There is not much to say about how to use this one. Just 
type RUN, then sit back and watch. Turning down the lights 
and playing a little music is a good way to add to the effect. 

By the way, it is a little misleading to say that the designs 
you see are symmetrical. It is more accurate to say that the 
positions occupied by the individual graphics characters are 
located symmetrically. The overall design is usually not com- 
pletely symmetrical, since the individual graphics characters are 
not themselves symmetrical. The characters on the lower half of 
the design would have to be the upside-down equivalent of the 
corresponding characters on the upper half for that to be true. 

Have a few friends bring their PETs over (all your friends do 
have PETs, don't they?), and get them all going with KALEIDO 
at once. Let us know if you think you have set a new world's 
record. Please note that we will not be responsible for any 
hypnotic trances induced this way. 
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SAMPLE RUN 




One of the patterns generated by the KALEIDO program. 



PROGRAM LISTING 



100 rem; kaleidoscope 

110 rem? copyright 1978 by tom rugg and phil feldman 

120 r=rnd<-ti>:print chr*<147) 

130 A=l?:B=12tS=32768:D=-l 

135 M=63 

140 DIM R<6> 

150 FOR J=0 TO 6 

160 T=65 

165 if rnd(1».5 then t=t+128 

170 r( j >=int( m*rnd< 1 ) )+t : next 

180 d=1jk*1jl=12jif d<0 then k=12jl=1 

200 for j=k to l step d 

210 x=a+j:y=b:gosub 900 

220 X=A-J?G0SUB 900 

230 x=a;y=b+j:gosub 900 

240 y=b-j:gosub 900 

250 x=a+.j:y=b+j:gosub 900 

260 x=a-j:y=b-j:gosub 900 

270 y=b+j:gosub 900 
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280 x=a+j:y=b-j:gosub 900 

790 NEXT 

795 FOR J=i TO 2000 {NEXT J 

800 GOTO 150 

900 POKE SMO*Y+X,R<0> 

910 IF J=l THEN RETURN 

920 H=INT<J*.5)iT=J-U-l 

930 FOR N=l TO U 

940 IF X=A THEN Y2=Y{X2=X+NIG0SUB 2000!X2=X-N! 

GOSUB 2000} NEXT i RETURN 
950 IF Y=B THEN X2=XJY2=Y+NJG0SUB 2000tY2=Y-N{ 

GOSUB 2000JNEXTJRETURN 
970 Y2=YJIF X<A THEN X2=X+N: GOSUB 2000 J GOTO 990 
980 X2=X-NJG0SUB 2000 

990 X2=XJIF Y<B THEN Y2=Y+NtG0SUB 2000JGOTO 1010 
1000 Y2=Y-N: GOSUB 2000 
1010 NEXT 
1020 RETURN 

2000 POKE S+40*Y2+X2»R(N> 
2010 RETURN 

EASY CHANGES 

1. Change the first part of line 180 to say D=-D instead of D=l. 
This will cause alternating inward and outward drawing of 
the designs rather than always outward from the center. 

2. In line 795, change the constant of 2000 to 10000. This will 
cause a delay of about fifteen seconds between the drawing 
of successive designs instead of three seconds. Or, remove line 
795 to eliminate the delay entirely. 

3. Modify the range of graphics characters from which the ones 
in the design are randomly selected. This is done by modifying 
the values of M and T in lines 135 and 160. For example, try 

M= 5andT= 76 
or M = 30andT= 76 
or M= 12andT= 116 

Experiment with other values. Be sure that M and T are both 
positive integers, that T is at least 65, and that the sum of M 
and T is no greater than 1 28. 

4. Eliminate reverse graphics characters by deleting line 165. Or, 
lower the frequency of use of the reverse graphics characters 
by increasing the value of .5 in line 165 to, say, .8 or .9. Simi- 
larly, you can increase the frequency of use of reverse graphics 
characters by lowering the .5 to .1 or .2. 
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5. You can change the designs into ones with only four point 
symmetry by doing the following: 

1 . In lines 140 and 1 50, change the 6 to a 1 2. 

2. In line 930, change the W to a J. 

3. Insert this line 

245 GOTO 790 

MAIN ROUTINES 

120- 140 Housekeeping. Initializes variables, RND. 

1 50 - 170 Picks seven random graphics characters. 

1 80 Selects D, K, and L to draw patterns inward or 

outward. 
200-790 Mainline routine. Determines axes of pattern. 
795 Delays about three seconds after drawing design. 

900-1020 POKEs graphics character into axes of design, 

then determines coordinates of points between 

axes. 
2000-2010 POKEs characters between axes (subroutine). 

MAIN VARIABLES 

A,B Coordinates of center of design. Upper left corner 

is considered to be (0,0). 

S Starting address of CRT memory map area. 

D Direction in which design is drawn (l=outward, 

-l=inward). 

R Array for the seven random graphics characters. 

J,N Subscript variables. 

T Numeric representation of lowest graphics charac- 

ter to be used. 

K,L Inner and outer bounds of design (distance from 

center). 

X,Y Coordinates of character being POKEd on hori- 

zontal, vertical, or diagonal axes. 

X2,Y2 Coordinates of character being POKEd between 
horizontal, vertical, and diagonal axes. 

M Number of possible graphics characters to choose 

from, not counting reverses. 
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SUGGESTED PROJECTS 

Modify the program to use the entire 40 x 25 area of the 
CRT screen, instead of just a 24 x 24 area in the center. 
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SPARKLE 



PURPOSE 

This graphics display program provides a continuous series of 
hypnotic patterns, some of which seem to sparkle at you while 
they are created. Two types of patterns are used. The first is a 
set of concentric diamond shapes in the center of the screen. 
Although the pattern is regular, the sequence in which it is 
created is random, which results in the "sparkle" effect. 

The second type of pattern starts about two seconds after the 
first has finished. It is a series of "sweeps" across the screen— left 
to right and top to bottom. Each sweep uses a random graphics 
character that is spaced equally across the screen. The spacing 
distance is chosen at random for each sweep. Also, the number 
of sweeps to be made is chosen at random each time in the 
range from 10 to 30. 

After the second type of pattern is complete, the program 
goes back to the first type, which begins to overlay the center 
of the second type. 

HOW TO USE IT 

Confused by what you just read? Never mind. You have to 
see it to appreciate it. Just enter the program into your PET, 
then sit back and watch the results of your labor. 
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SAMPLE RUN 




One of the patterns generated by the SPARKLE program. 



PROGRAM LISTING 

loo rem: sparkle 

110 REM: COPYRIGHT 1978 BY TOM RUGG AND PHIL FELDMAN 

120 R=RND(-TI):PRINT CHR*<147) 

130 DIM AU2)rBU2>:A=19:B=12{S=32768 

140 T=INT<37*RND<l>)+66 

150 for j=o to i2:a(J)=j:b<j)=j:next 

160 for j=0 to 12:r=int<13*rnd<1>) 

170 »=A< j ):a( j )=a< r ):a< r >=w:next 

180 FOR J=0 TO 12:R=INT<13*RND(1)) 

190 y=B(J):B(J)=B<R):B<R)=WINEXT 

200 for j=0 to 12: for k=0 to 12 

210 r=a(j)jm=b<k):c=r+u+t 

240 x=a+r:y=b+w:gosub 900 

250 Y=B-U:G0SUB 900 

260 x=a-r:cosub 900 

270 y=b+wjg0sub 900 

280 x=a+u:y=b+r:gosub 900 

290 y=b-r:gosub 900 

300 X=A-y:GOSUB 900 
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310 Y=B+RJG0SUB 900 

320 NEXT: NEXT 

350 FOR J=l TO 2000 J NEXT 

400 N=65tH=63 

410 FOR J=l TO INT(21*RND<1))+10 

420 R=INT< 22*RND< 1 ) )+l {W=INT< N*RND( 1 ) ) 

430 T=S:iF RND(l)>t8 THEN T=T+1 

440 POKE S»N+W 

450 FOR K=T TO T+999 STEP R 

460 POKE KfN+WtNEXT 

470 NEXT 

480 GOTO 140 

900 POKE S+40*Y+X»C 

910 RETURN 

EASY CHANGES 

1 . Make the second type of pattern appear first by inserting this 
line: 

135 GOTO 400 
Or, eliminate the first type of pattern by inserting: 

145 GOTO 400 
Or, eliminate the second type of pattern by inserting: 

360 GOTO 140 

2. Increase the delay after the first type of pattern by increasing 
the 2000 in line 350 to, say, 5000. Remove line 350 to 
eliminate the delay. 

3. Increase the number of sweeps across the screen of the second 
type of pattern by changing the 10 at the right end of line 
410 into a 30 or a 50, for example. Decrease the number of 
sweeps by changing the 10 to a 1, and also changing the 21 in 
line 410 to 5 or 10. 

4. Watch the effect on the second type of pattern if you change 
the 22 in line 420 into various integer values between 2 and 
100. 

5. Change the values of N and M in line 400 to alter the graphics 
characters used in the second type of pattern. For example, 
try 

N=76 and M=5 
or, N=120andM=8 

Be sure that N is at least 65, and the sum of N and M is no 
more than 128. 
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MAIN ROUTINES 

120- 130 Initializes variables. Clears screen. 

140-320 Displays square pattern in center of screen. 

150- 190 Shuffles the numbers through 12 in the A and 
B arrays. 

200 - 320 POKEs graphics characters to the screen. 

350 Delays for about 2 seconds. 

400 - 480 Overlays the entire screen with a random graphics 
character spaced at a fixed interval chosen at 
random. 

900 - 910 Subroutine to POKE graphics character C to loca- 
tion (X, Y). Upper left corner of screen is location 
(0,0). 

MAIN VARIABLES 

R Random integer. Also, work variable. 

A,B Arrays in which shuffled integers from to 12 

are stored for use in making first type of pattern. 
A,B Coordinates of center of screen (19 across, 12 

down). 
S Address of beginning of screen. 

T Integer from 66 to 1 02, used in creating random 

graphics characters. Also, work variable. 
J,K Work and loop variables. 

W Work variable. 

X,Y Coordinates of a position on the screen for a 

graphics character. 
C Graphics character to be POKEd to screen at X,Y. 

N Lowest graphics character to be used in second 

type of pattern. 
M Multiplier used in getting a random integer to add 

toN. 

SUGGESTED PROJECTS 

Make the second type of pattern alternate between "falling 
from the top" (as it does now) and rising from the bottom of 
the screen. 



SQUARES 



PURPOSE 

This is another graphics-display program. It draws a series of 
concentric squares, with the graphics character used for each 
square chosen at random. After a full set of concentric squares 
is drawn, the next set starts again at the center and overlays the 
previous one. The speed at which each set of squares is drawn 
fluctuates to provide another dimension to the designs. 

HOW TO USE IT 

As with most of the other graphics display programs, you just 
sit back and enjoy watching this one once you get it started. 
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SAMPLE RUN 




One of the patterns generated by the SQUARES program. 



PROGRAM LISTING 



io o rem: squares 

110 REM: COPYRIGHT 1978 BY TOM RUGG AND PHIL FELDMAN 
120 J=RNIK-TI):PRINT CHR$<147) 
130 G0SUB 600:N=1:R=INT(50*RNIi(1)) 

140 c=int<95*rndu)>-h60 

150 print chr*( 146)5 

160 if rnd<1)>.5 then print chr$<18)j 

170 x=c:y=o:k=n:gosub 700 

180 N=N+1 

190 Y=145:Z=157:K=N:G0SUB 800 

200 Y=157:G0SUB 800 

210 N=N+1 

220 y=i7:k=n:gosub 800 

230 IF N<22 THEN 140 
240 GOTO 130 

600 k=u:x=29:y=2?:z=i7 

610 print chr$(19)ig0sub 800:return 

700 FOR J=l TO KIG0SUB 900 
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7io print chr$<x>;chr*<y>»:next: return 

800 FOR J=l TO KtGOSUB 900 

810 PRINT CHR$(X)»CHR*(Y)JCHR$<Z)» 

820 NEXT! RETURN 

900 FOR W=l TO RINEXTtRETURN 



EASY CHANGES 

1 . To eliminate the variable speed feature of the program, insert 
this line: 

135 R=25 

This will cause the speed to be fixed at about the level of the 
average speed when the variable speed feature is active. In- 
stead of 25, try 1 for high speed, or 50 or 100 for low speed. 

2. To eliminate the use of reverse graphics characters in tne dis- 
play, remove line 160. 

3. To make the patterns less regular, try inserting these lines: 

802 D=0:IF INT(J/2)=J/2 THEN D=l 

804 X=X+D 

815X=X-D 



MAIN ROUTINES 

120-130 Initializes variables. Clears screen. Determines 

speed for this set of squares. 
140 - 160 Picks random graphics character. 
1 70 - 220 Mainline routine. Draws a square using cursor 

control characters. 
230 - 240 Determines if set of squares is done. If so, starts 

over. If not, draws next square. 
600-610 Subroutine to move cursor to center of screen. 
700 - 71 Subroutine to do K repetitions of printing CHR$ 

of X and Y. 
800 - 820 Subroutine to do K repetitions of printing CHR$ 

of X, Y, and Z. 
900 Delay subroutine. 
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MAIN VARIABLES 

J,K,W Work and loop variables. 

N Length of the side of the square being drawn. 

R Random number from to 49 for time delay. 

C ASCII value of graphics character. 

X,Y,Z ASCII values of characters being printed by sub- 

routines. Can be cursor control characters or 
graphics characters. 



WALLOONS 



PURPOSE 

The PET is quite a versatile machine. This program takes 
advantage of its powerful graphics capability to produce com- 
puter animation. That's right, animation! WALLOONS will 
entertain you with a presentation from the Pet Playhouse. 

The Pet Playhouse searches the world over to bring you the 
best in circus acts and other performing artists. Today, direct 
from their performance before the uncrowned heads of Europe, 
the Playhouse brings you the Flying Walloons. 

HOW TO USE IT 

Just sit back, relax, and get ready to enjoy the show. Type 
RUN and the Flying Walloons will be ready to perform. You 
have a front row center seat and the curtain is about to go up. 

Applause might be appropriate if you enjoy their performance. 
Please note that the Walloons have been working on a big new 
finish to their act which they haven't yet quite perfected. 
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SAMPLE RUN 




The billboard announces a new presentation of the (in)famous PET 
Playhouse. 




"The Flying Walloons" are to perform! 



WALLOONS 
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The Walloons attempt a dangerous trick from their repertoire. 



PROGRAM LISTING 



100 
110 
150 
20O 
210 
220 
230 
240 
250 
260 
270 
280 
290 
400 
410 
420 
430 
440 
450 
460 
470 



REM WALLOONS 

REM COPYRIGHT 1978 BY PHIL FELDMAN AND TOM RUGG 

NJ=3 

G0SUB 1900 : FOR J=l 
A=32978JF0R J=0 TO 
next: FOR J=0 TO 
NEXTt FOR J=0 TO 
next: FOR J=0 TO 



to 7:print:next 

18IP0KE A+J,127 
lOt POKE A+18+40*J»127 
lOtPOKE A+40*J»127 
18t POKE 



FOR J=0 TO IStPOKE A+400+Jil27JNEXT 

GOSUB 1920 

PRINT 

PRINT 

PRINT 

GOSUB 

FOR J=l TO 9IPRINT CHR$<17 )? JNEXT 

FOR J=l TO 131PRINT CHR$(29)JINEXT 

FOR J=l TO 13:PRINT"-"5:FOR K=l TO 300JNEXTJNEXT 

GOSUB 1920:GQSUB 1920 

GOSUB 1900JFOR J=l TO lOtPRINT CHR*U7)J 



TAB<13)i"PET PLAYHOUSE"! PR I NT 
TABt 16 )» M PROUDLY M {PRINT 

TAB( 15 )f "PRESENTS" 

1920IGOSUB 1920:PRINT CHR»( 19 ) 



next:print tabuo>;"the 
gosub 1920jgosub 1920 



FLYING WALLOONS" 
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500 A=33333IG0SUB 1900:G0SUB 1700 

510 GOSUB 19205GOSUB 1920 

520 FOR A=33370 TO 33382 J ! GOSUB 1800 

530 GOSUB 1850INEXTSGOSUB 1800 

600 GOSUB 1920 

610 A=32876{R=0 

620 FOR G=A+158 TO A+171{POKE G> 99 {NEXT 

630 FOR L=l TO 2000 J NEXT 

640 A=32886{G0SUB 1800IGOSUB 1920 

650 FOR A=32886 TO 32876 STEP -1 

660 FOR L=l TO 100 {NEXT 

670 GOSUB 18005GOSUB 1850 {NEXT {GOSUB 1800 

680 GOSUB 1920JGOSUB 1850{A=A~1 SGOSUB 1800 

690 GOSUB 1920 

700 GOSUB 1920 JGOSUB 1850 { A=A+1 { GOSUB 1800 

710 GOSUB 1850IA=A+1 {GOSUB 1800JGOSUB 1920 

720 POKE A»81JG0SUB 1920SG0SUB 1920 J 

730 POKE A, 87 {GOSUB 1920 J GOSUB 1920 

740 FOR A=32876 TO 32872 STEP-1 

750 GOSUB 1800 JGOSUB 1850 

760 FOR L=l TO lOOlNEXTJNEXTJCOTO 900 

800 A=33383JG0SUB 1900 5GOSUB 1800 

810 GOSUB 1700 

820 FOR A=33352 TO 32872 STEP -40 

830 GOSUB 1800:GOSUB 1850 {NEXT 

840 R=R+15IF R>=NJ THEN 1000 

900 FOR A=32872 TO 33352 STEP 40 

910 GOSUB 1800JGOSUB 1850JNEXT 

920 A=33392{GGSUB 1900IGOSUB 1800 

930 GOSUB 1600 

940 FOR A=33343 TO 32863 STEP -40 

950 GOSUB 1800 JGOSUB 1850 {NEXT 

960 FOR A=32863 TO 33343 STEP 40 

970 GOSUB 18005GOSUB 1850 {NEXT 

980 GOTO 800 

1000 A=A-39 JGOSUB 1800 {GOSUB 1850 

101O A=A+41IG0SUB i800{G0SUB 1350 

1020 FOR A=32834 TO 33354 STEP 40 

1030 GOSUB 1800 JGOSUB 1850 {NEXT 

1040 A=33558{P0KE A»87{P0KE A-1,91 

1050 POKE A-41»93{P0KE A+39»93J 

1060 POKE A-2f90:P0KE h-42,77 

1070 POKE A+37 ? 78 

1080 GOSUB 1920 {GOSUB 1920 JGOSUB 1900 

1090 FOR J=l TO 5JPRINT CHR*( 17 JSNEXT 

1100 PRINT TAB( 18 HTINIS" JGOSUB 1920 

1110 GOSUB 1920JGOSUB 1920JEND 

1600 POKE A+110 ? 99{POKE A+111,69 

1610 POKE A+112»68:P0KE A+113?67 
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1620 POKE A+114t64JP0KE A+115»70 

1630 POKE A+116f82tP0KE A+117»100 

1640 POKE A+158»9?JP0KE A+159»69 

1650 POKE Al 160*685 POKE A+161f67 

1660 POKE A+155»233{P0KE A+156i223 

1670 RETURN 

1700 POKE A+123»100:POKE Atl24>82 

1710 POKE A+125f701POKE A+126f64 

1720 POKE A+127»67:P0KE A+128?68 

1730 POKE A+129»69:P0KE A+130»9? 

1740 POKE A+159»67tP0KE A+160f68 

1750 POKE A+161»69:P0KE A+162f99 

1760 POKE A+164»233JP0KE A+I65»223{RETURN 

1800 POKE At 87t POKE A+39»64:P0KE A+40f?l 

1810 POKE A+41f64tP0KE A+80j90 

1820 POKE A+119»781P0KE A+121f 77 {RETURN 

1850 POKE A » 32 J POKE A+39f32tP0KE AM0»32 

1860 POKE A+41»32:P0KE A+80»32 

1870 POKE A+119i32:PQKE A+121»32JRETURN 

1900 PRINT CHR«(147):RETURN 

1920 FOR L=l TO lOOOINEXTJRETURN 



EASY CHANGES 

1 . If you wish to have the Walloons perform more (or less) 
jumps during their performance, change the value of NJ 
in line 1 50 accordingly. To get five jumps, use 

150NJ=5 

2. Timing delays are used often in the program. To change the 
length of the delay, alter the 1000 in line 1920 to a different 
value. Values larger than 1000 will lengthen the delays, while 
values smaller than 1 000 will shorten the delays. 

3. You might want to personalize the title placard and make 
yourself the presenter of the Walloons. This can be done by 
altering the string literal, "PET PLAYHOUSE" in line 270 to 
something else. However, you cannot use a string with a 
length of much more than 14 characters or it will print 
beyond the end of the placard. To say, for example, that 
Simon Fenster presents the Walloons, change line 270 to: 

270 PRINT TAB(13);"SIMON FENSTER" :PRINT 
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MAIN ROUTINES 

150 SetsNJ. 

200 - 290 Displays title placard. 

400 - 470 Removes "proudly," displays rest of title. 

500-530 Moves first Wallooon into view. 

600 - 760 Second Walloon enters from the high platform. 

800 - 980 Flying Walloons perform. 

1 000 - 1 1 1 Concludes Walloon's performance. 

1600- 1670 Subroutine to draw lever with right side down. 

1700-1760 Subroutine to draw lever with right side up. 

1 800 - 1 820 Subroutine to draw Walloon with head at Poke 

location A. 

1850- 1870 Subroutine to erase Walloon with head at A. 

1 900 Subroutine to clear screen. 

1 920 Time delaying subroutine. 

MAIN VARIABLES 

NJ Number of jumps to make. 

A Reference Poke location. 

R Jump Counter. 

J,K,L,Q Loop Indices. 

SUGGESTED PROJECTS 

1 . There are many possibilities for "spicing up" the Walloons' 
act with extra tricks or improved ones. Perhaps you would 
like to change their finish to something less crude. To get 
you started, here are the changes to produce one alternate 
ending: 

1000 GOTO 1200 

1200 FOR A=32832 TO 32472 STEP -40 
1210GOSUB 1800:GOSUB 1850:NEXT 
1220GOSUB 1920:GOSUB 1900:GOTO 1090 

One word of warning about this new coding. It intentionally 
does some POKEs to addresses that are non-functioning on 
4K and 8K PETs. This could cause problems only if you have 
expanded your user memory up to a full 32K. 

2. If you add some alternate tricks or endings as suggested in 
the previous project, try randomizing if and when they will 
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be done. Thus, the Walloons' performance will be different 
each time the program is run. At least their ending may be 
variable. 
3. Scour the world yourself for other acts to include in the Pet 
Playhouse. Maybe someday we will have a complete software 
library of performing artists. 
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Section 5 
Mathematics Programs 



INTRODUCTION TO MATHEMATICS PROGRAMS 

Since their invention, computers have been used to solve 
mathematical problems. Their great speed and reliability render 
solvable many otherwise difficult (or impossible) calculations. 
Several different numerical techniques lend themselves naturally 
to computer solution. The following programs explore some of 
them. They will be of interest mainly to engineers, students, 
mathematicians, statisticians, and others who encounter such 
problems in their work. 

GRAPH takes advantage of the PET's graphic powers to draw 
the graph of a function Y = f(X). The function is supplied by 
you. INTEGRATE calculates the integral, or "area under the 
curve," for any such function. 

Experimental scientific work frequently results in data at 
discrete values of X and Y. CURVE finds a polynomial alge- 
braic expression to express this data with a formula. 

Theoretical scientists (and algebra students) often must find 
the solution to a set of simultaneous linear algebraic equations. 
SIMEQN does the trick. 

Much modern engineering work requires the solution of 
differential equations. DIFFEQN will solve any first-order 
ordinary differential equation that you provide. 

STATS will take a list of data and derive standard statistical 
information describing it. In addition, it will sort the data list 
into ranking numerical order. 
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CURVE 



PURPOSE AND DISCUSSION 

CURVE fits a polynomial function to a set of data. The data 
must be in the form of pairs of X-Y points. This type of data 
occurs frequently as the result of some experiment, or perhaps 
from sampling tabular data in a reference book. 

There are many reasons why you might want an analytic 
formula to express the functional relationship inherent in the 
data. Often you will have experimental errors in the Y values. A 
good formula expression tends to smooth out these fluctuations. 
Perhaps you want to know the value of Y at some X not ob- 
tained exactly in the experiment. This may be a point between 
known X values (interpolation) or one outside the experimental 
range (extrapolation). If you wish to use the data in a computer 
program, a good formula is a convenient and efficient way to do 
it. 

This program fits a curve of the form 

Y = C +C 1 X 1 +C 2 X 2 +... + C D X D 

to your data. You may select D, the degree (or power) of the 
highest term, to be as large as 9. The constant coefficients, 
C - C D , are the main output of the program. Also calculated is 
the goodness of fit, a guide to the accuracy of the fit. You may 
fit different degree polynomials to the same data and also ask to 
have Y calculated for specific values of X. 

The numerical technique involved in the computation is 
known as least squares curve fitting. It minimizes the sum of the 
squares of the errors. The least squares method reduces the 
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problem to a set of simultaneous algebraic equations. Thus 
these equations could be solved by the algorithm used in 
SIMEQN. In fact, once the proper equations are set up, CURVE 
uses the identical subroutine found in SIMEQN to solve the 
equations. For more information, the bibliography contains 
references to descriptions of the numerical technique. 

HOW TO USE IT 

The first thing you must do, of course, is enter the data into 
the program. This consists of typing in the pairs of numbers. 
Each pair represents an X value and its corresponding Y value. 
The two numbers (of each pair) are separated by a comma. A 
question mark will prompt you for each data pair. After you 
have entered them all, type 

999,999 

to signal the end of the data. When you do this, the program 
will respond by indicating how many data pairs have been 
entered. A maximum of 1 00 data pairs is allowed. 

Next, you must input the degree of the polynomial to be 
fitted. This can be any non-negative integer subject to certain 
constraints. The maximum allowed is 9. Unless your data is 
well behaved (X and Y values close to 1), the program will 
often not produce accurate results if D is greater than 5 or so. 
This is because sums of powers of X and Y are calculated up to 
powers of 2*D. These various sums are several orders of magni- 
tude different than each other. Errors result because of the 
numerous truncation and round-off operations involved in 
doing arithmetic with them. Also, D must be less than the 
number of data pairs. You will get an error message if you input 
an illegal value of D. 

A few notes regarding the selection of D may be of interest. 
If D=0, the program will output the mean value of Y as the 
coefficient C . If D=l, the program will be calculating the best 
straight line through the data. This special case is known as 
"linear regression." If D is one less than the number of data 
pairs, the program will find an exact fit to the data (barring 
round-off and other numerical errors). This is a solution which 
passes exactly through each data point. 

Once you have entered the desired degree, the program will 
begin calculating the results. There will be a pause while this 
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calculation is performed. The time involved depends on the 
number of data pairs and the degree selected. For twenty-five 
data pairs and a third degree fit, the pause will be about half a 
minute. Fifty data pairs and a fifth degree fit will take about a 
minute. 

The results are displayed in a table. It gives the values of the 
coefficients for each power of X from to D. That is, the values 
of C - C D are output. Also shown in the percent goodness of 
fit. This is a measure of how accurately the program was able to 
fit the given case. A value of 100 percent means perfect fit, 
lesser values indicate correspondingly poorer fits. It is hard to 
say what value denotes satisfactory fit since much depends on 
the accuracy of data and the purpose at hand. But as a rule of 
thumb, anything in the high nineties is quite good. For those 
interested, the formula to calculate the percent goodness of fit 
is 



P.G.F= 100 * 



where Y. are the actual Y data values, Y. are the_calculated Y 
values (through the polynomial expression), and Y is the mean 
value of Y. 

Next, you are presented with three options for continuing 
the run. These are 1) determining specific points, 2) fitting 
another degree, 3) ending the program. Simply type 1, 2, or 3 
to make your selection. A description of each choice now fol- 
lows. 

Option 1 allows you to see the value of Y that the current fit 
will produce for a given value of X. In this mode you are con- 
tinually prompted to supply any value of X. The program then 
shows what the polynomial expression produces as the value for 
Y. Input 999 for an X value to leave this mode. 

Option 2 allows you to fit another degree polynomial to the 
same data. Frequently, you will want to try successively higher 
values of D to improve the goodness of fit. Unless round-off 
errors occur, this will cause the percent goodness of fit to 
increase. 

Option 3 simply terminates the program and with that we 
will terminate this explanation of how to use CURVE. 
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SAMPLE PROBLEM AND RUN 

Problem : An art investor is considering the purchase of 
Primo's masterpiece, "Frosted Fantasy." Since 1940, the 
painting has been for sale at auction seven times. Here is the 
painting's sales record from these auctions. 

Year Price 



1940 


$ 8000. 


1948 


SI 3000. 


1951 


$16000. 


1956 


$20000. 


1962 


$28000. 


1968 


$39000. 


1975 


$53000. 



The painting is going to be sold at auction in 1979. What price 
should the investor expect to have to pay to purchase the 
painting? If he resold it in 1983, how much profit should he 
expect to make? 

Solution: The investor will try to get a polynomial function 
that expresses the value of the painting as a function of the year. 
This is suitable for CURVE. The year will be represented by the 
variable X, and the price is shown by the variable Y. To keep 
the magnitude of the numbers small, the years will be expressed 
as elapsed years since 1900, and the price will be in units of 
$1000. (Thus a year of 40 represents 1940, a price of 8 repre- 
sents $8000.) 

SAMPLE RUN 

- LEAST SQUARES CURVE FITTING - 

ENTER A DATA PAIR IN RESPONSE TO EACH 
QUESTION MARK. EACH PAIR IS AN X VALUE 
AND A Y VALUE SEPARATED BY A COMMA. 

AFTER ALL DATA IS ENTERED, TYPE 

999 , 999 
IN RESPONSE TO THE LAST QUESTION MARK. 

THE PROGRAM IS CURRENTLY SET TO ACCEPT 
A MAXIMUM OF 100 DATA PAIRS. 
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X,Y=? 40,8 

X,Y=? 48, 13 

X,Y=? 51,16 

X,Y = ? 56,20 

X,Y=? 62,28 

X,Y=? 68,39 

X,Y = ? 75,53 

X,Y = ? 999,999 

7 DATA PAIRS ENTERED 

DEGREE OF POLYNOMIAL TO BE FITTED? 1_ 

X POWER COEFFICIENT 

-48.2701205 

1 1.28722711 

PERCENT GOODNESS OF FIT= 97.5302068 
— CONTINUATION OPTIONS — 

1 - DETERMINE SPECIFIC POINTS 

2 - FIT ANOTHER DEGREE TO SAME DATA 

3 - END PROGRAM 

WHAT NEXT? 2 

DEGREE OF POLYNOMIAL TO BE FITTED? 2 

X POWER COEFFICIENT 

38.475481 

1 -1.83492574 

2 .0270347151 

PERCENT GOODNESS OF FIT= 99.9485752 

(continuation options displayed again) 

WHAT NEXT? 1 

ENTER 999 TO LEAVE THIS MODE 

X=? 79 

Y= 62.2400047 

X=? 83 

Y= 72.4187971 

X=? 999 
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(continuation options displayed again) 

WHAT NEXT? 3. 
READY. 

Initially, a first degree fit was tried and a goodness of fit of 
about 97.5% was obtained. The investor wanted to do better, 
so he tried a second degree fit next. This had a very high good- 
ness of fit. He then asked for the extrapolation of his data to 
the years 1979 and 1983. He found that he should expect to 
pay about $62250 to buy the painting in 1979. Around a 
$10000 profit could be expected upon resale in 1983. 

Of course, the investor did not make his decision solely on 
the basis of this program. He used it only as one guide to his 
decision. There is never any guarantee that financial data will 
perform in the future as it has done in the past. Though CURVE 
is probably as good a way as any, extrapolation of data can 
never be a totally reliable process. 

PROGRAM LISTING 

100 REM CURVE 

110 REM COPYRIGHT 1978 BY PHIL FELDMAN AND TOM RUGG 

150 MX=100 

160 EF=99? 

170 MD=9 

200 DIM X<MX)»Y<MX> 

210 Q=MD+i:DIM A<Q*Q)»R<QhV<Q) 

220 Q=MD*2JDIN P< Q > 

300 PRINT CHR$< 

147);" - LEAST SQUARES CURVE FITTING -"tPRINT 
310 PRINT" ENTER A DATA PAIR IN RESPONSE TO EACH" 
320 PRINT"QUESTI0N MARK. EACH PAIR IS AN X VALUE" 
330 PRINT" AND A Y VALUE SEPARATED BY A COMMA*" tPRINT 
340 PRINTtPRINT"AFTER ALL DATA IS ENTERED* TYPE" 
350 PRINT EFr'VSEF 
360 PRINT" IN RESPONSE TO THE LAST QUESTION MARK*"! 

PRINT 
370 PRINTtPRINTHHE PROGRAM IS CURRENTLY SET TO" 
380 PRINT'*ACCEPT A MAXIMUM OF'SMXT'DATA PAIRS." 
400 PRINTJPRINTJJ=0 
410 J=J+ltINPUT"X»Y=" 5X( J )»Y< J ) 
420 IF X<J)=EF AND Y( J )=EF THEN J=J-1{G0T0 450 
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430 IF J=MX THEN PRINTtPRINT"NO MORE DATA ALLOWED": 

GOTO 450 
440 GOTO 410 
450 NP=JJ PRINT 
460 IF NP=0 THEN 

PRINT"** FATAL ERROR! ** — NO DATA ENTERED" tSTOP 
470 PRINT NPi'DATA PAIRS ENTERED" {PRINT 

500 print: 

INPUT-DEGREE OF POLYNOHIAL TO BE FITTED" rDJPRINT 
510 IF D<0 THEN 

PRINT"** ERROR! ** — DEGREE MUST BE >= 0": 

GOTO 500 
520 Ii=INT(D>:iF D<NP THEN 540 

530 PRINT"** ERROR! ** — NOT ENOUGH DATA":GOTO 500 
540 D2=2*D:iF D>MD THEN 

PRINT"** ERROR! ** -- DEGREE TOO HIGH":GOTO 500 
550 N=D+1 
600 FOR J=l TO D2:P(J)=0:FOR K=l TO NP 

610 p( j >=p( j hx< k )t j:next:next:p< o )=np 
620 r< i )=o:for j=i to np:r< 1 >=R< 1 hy< J ) 

630 NEXT: IF N=l THEN 660 

640 FOR J=2 TO NSR(J)=0:FOR K=l TO NP 

650 R( J >=R< J )+Y< K )*X( K )t( J-l ):NEXT:NEXT 

660 FOR J=l TO NJFOR K=l TO HIM J,K )=P< J+K-2 ):NEXT: 

NEXT 

670 GOSUB 2000 

70O PRINT:PRINT"X POWER COEFFICIENT" 

710 FOR ,1=1 TO 7JPRINT CHR*<197 HJNEXTJPRINT TAB(ll)? 

720 for j=i to h:print chr$< 197 >»:next:print 

730 for j=i to n:print m " jj-i, v< j >:next:print:print 

740 q=o:for j=i to np:q=q+y(J):next:m=q/np:t=ojg=o: 

for j=i to np 

750 Q=0:F0R K=l TO N:Q=Q+V(K)*X(.J)t<K-l):NEXT{ 

T=T+(Y(J)-Q)t2 

760 G=G+(Y(J)-M)t2:NEXT:iF G=0 THEN T=100:GOTO 780 

770 T=100*SQR(1-T/G) 

780 PRINT"PERCENT GOODNESS OF FIT="?T 

800 PRINTIPRINT" — CONTINUATION OPTIONS —".'PRINT 

310 PRINT" 1 - DETERMINE SPECIFIC POINTS" 

820 PRINT" 2 - FIT ANOTHER DEGREE TO SAME DATA" 

830 PRINT" 3 - END PROGRAM" JPRINT 

840 INPUT-WHAT NEXT" ?Q:Q=INT(Q)HF 0=3 THEN END 

850 IF Q=2 THEN 500 

860 IF QOl THEN 800 

900 print:print:print"enter h jef;"to leave this mode" 
910 print:input">;="5xv:if XV=EF THEN 800 
920 yv=o:for k=i to n 
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930 YV=YV+y(K)*XVt(K-l)JNEXTtPRINT"Y="JYV 

940 GOTO 910 

2000 IF N=l THEN V< 1 )=R( 1 >/A< 1 »1 KRETURN 

2010 FOR K=l TO N-l 

2020 I=K+1 

2030 L=K 

2040 IF ABS(A(I»K)»ABS(A(LfK)) THEN L=I 

2050 IF KH THEN 1=1+1 iGOTO 2040 

2060 IF L=K THEN 2100 

2070 FOR J=K TO NtQ=A(Kr J >tA< KjJ >=A< It J ) 

2080 A(L»J)=QJNEXT 

2090 Q=R(K)JR(K)=R(L)tR(L)=Q 

2100 I=K+1 

2110 Q=A(I»K)/A(K»K)JA<I»K)=0 

2120 FOR J=K+1 TO HXM It J )-M It J )-Q*A< K» J )JNEXT 

2130 R<I)=R<I)-G*R(K)tIF KN THEN I=I+1JG0T0 2110 

2140 NEXT 

2150 V<N)=R(N)/A<N»N)tFOR I=N-1 TO 1 STEP -1 

2160 Q=0:FOR J=I+1 TO NtQ=Q+A<IfJ)*V<J) 

2170 V< I )=< R( I )-Q )/A( It I JtNEXTtNEXT 

2180 RETURN 

EASY CHANGES 

1 . The program uses 999 as the flag number to terminate various 
input modes. This may cause a problem if your data include 
999. You can easily change the flag number by modifying 
the value of EF in line 160 to any value not needed in your 
data. To use 10101, for example, make this change: 

160EF=10101 

2. Currently, a maximum value of 100 data pairs is allowed. If 
you need more, change the value of MX in line 150 to the 
number required. However, you cannot set MX to anything 
higher than 255. To achieve this absolute maximum, make 
this change: 

150MX=255 

3. To allow fits of higher degrees than 9, set MD in line 170 to 
the maximum degree desired. A value of 14 is the absolute 
limit. To achieve this, use 

170MD=14 

However, it must be stressed that the program will generally 
be quite unreliable for these high degrees. A practical limit 
for MD is 7. 
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4. The current dimensioning requires a PET with 8K of mem- 
ory. To operate the program with a 4K PET, make these 
changes: 

150MX=20 
170MD=4 

This will mean, of course, that you will be restricted to using 
twenty data pairs and fourth degree fits. 

MAIN ROUTINES 

150-170 Initializes constants. 

200 - 220 Dimensions arrays. 

300-380 Displays introductory messages. 

400-470 Gets X-Y input data from the user. 

500- 550 Gets degree of polynomial from the user, deter- 
mines if it is acceptable. 

600- 670 Sets up equations for the simultaneous equation 
solver and calls it. 

700-780 Calculates percent goodness of fit, displays all 
results. 

800 - 860 Gets user's continuation option and branches to 
it. 

900 - 940 Determines Y value corresponding to any X value. 

2000 - 2 1 80 Subroutine to solve simultaneous linear algebraic 
equations. 

MAIN VARIABLES 

MX Maximum number of data pairs allowed. 

MD Maximum degree allowed to fit. 

EF Ending flag value for data input and X point mode. 

X, Y Arrays of X and Y data points. 

NP Number of data pairs entered. 

D Degree of polynomial to fit. 

D2 2*D, the maximum power sum to compute. 

N D+l, number of simultaneous equations to solve. 

A,R,V Arrays for simultaneous linear equation solver. 

P Array for holding sums of various powers of X. 

I,J,K,L Loop indices. 

Q,G Work variables. 

M Mean value of Y. 

T Percent goodness of fit. 
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XV Specific X point to calculate Y for. 

YV Y value corresponding to XV. 

SUGGESTED PROJECTS 

1 . No provision for modifying the data is incorporated into the 
program. Often it would be nice to add, subtract, or modify 
parts of the data after some results are seen. Build in a capa- 
bility to do this. 

2. You may desire other forms of output. A useful table for 
many applications might include the actual X values, calcu- 
lated Y values, and/ or percentage errors in Y. 

3. Sometimes certain points (or certain regions of points) are 
known to be more accurate than others. Then you would 
like to weight these points as being more important than 
others to be fit correctly. The least squares method can be 
modified to include such a weighting parameter with each 
data pair. Research this technique and incorporate it into the 
program. (Note: you can achieve some weighting with the 
current program by entering important points two or more 
times. There is a certain danger in this, however, You must 
only ask for a solution with D less than the number of unique 
data points. A division by zero error may result otherwise.) 

4. Often you wish to try successively higher degree polynomials 
until a certain minimum percent goodness of fit is obtained. 
Modify the program to accept a minimally satisfactory 
percent goodness of fit from the user. Then have the program 
automatically try various polynomial fits until it finds the 
lowest degree fit, if any, with a satisfactory goodness of fit. 
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PURPOSE 

Differential equations express functions by giving the rate of 
change of one variable with respect to another. This type of 
relation occurs regularly in almost all the physical sciences. The 
solution of these equations is necessary in many practical 
engineering problems. 

For many such equations, a closed form (or exact analytical 
expression) solution can be obtained. However, for just as many, 
no such "simple" solution exists. The equation must then be 
solved numerically, usually by a computer program such as this. 

There are many types and classes of differential equations. 
This program solves those of a simple type; namely, first order, 
ordinary differential equations. This means the equation to be 
solved can be written in the form 

dY 

— = (any function of X, Y) 

dX 

Here, X is the independent variable and Y is the dependent vari- 
able. The equation expresses the derivative (or rate of change) 
of Y with respect to X. The right-hand-side is an expression 
which may involve X and/or Y. 

To use the program, you must supply it with the differential 
equation to be solved. The procedure to do this is explained in 
the "How To Use It" section. 

A technique known as the "fourth-order, Runge-Kutta" 
method is used to solve the equation. Space limitations prevent 
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any detailed explanation of it here. However, it is discussed well 
in the numerical analysis books referenced in the bibliography. 
The program allows two forms of output. You can have the 
answers tabulated in columns or plotted graphically. 

HOW TO USE IT 

The first thing you must do is enter the differential equation 
into the program. This must be done at line 3000. Currently 
this line contains a GOTO statement. This will cause an error 
message to be displayed if the program is run before you have 
changed line 3000. The form of line 3000 should be: 

3000 D = (your function of X,Y) 

D represents dY/dX. GOSUBs are made to line 3000 with X and 
Y set to their current values. Thus, when each RETURN is 
made, D will be set to the appropriate value of dY/dX for that 
given X and Y. If necessary, you may use the lines between 
3000 and 3999 to complete the definition of D. Line 3999 al- 
ready contains a RETURN statement so you do not need to add 
another one. 

The program begins by warning you that you should have 
already entered the equation at line 3000. You acknowledge 
that this has been done by hitting the C key to continue. 

Now the various initial conditions are input. You are prompted 
for them one at a time. They consist of: the initial values of X 
and Y, the stepsize interval in X at which to display the output, 
and the final value of X. 

You now have a choice between two types of output. Enter a 
T for tabular output or a G for graphical output. The tabular 
form is simply a two column display of the corresponding values 
of X and Y. 

The graphical output plots the values of Y along a horizontal 
axis as each corresponding X value is displayed on successive 
lines of the screen. This graphical display requires you to input 
the minimum and maximum values of Y that will be used on 
the Y axis. You will be prompted for them if this output form 
is chosen. An open circle is used to plot the value of Y. If, how- 
ever, the value of Y is "off-scale," a closed circle is plotted at 
the appropriate edge of the graph. 

With the input phase completed, the program initializes things 
to begin the output. A question mark will be displayed in the 
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lower left of the screen, telling you the program is waiting for 
you to hit any key to begin the output. 

The output is displayed at each interval of the stepsize until 
the final value of X is reached. Output may temporarily be 
halted at any time by simply hitting any key. This will stop the 
display until you hit any key to resume the output. The output 
may be started and stopped as often as desired, thus enabling 
you to leisurely view intermediate results before they scroll off 
the screen. It is applicable to both the tabular and graphical 
forms of output. 

SAMPLE PROBLEM AND RUN 

Problem: A body, originally at rest, is subjected to a force of 
2000 dynes. Its initial mass is 200 grams. However, while it 
moves, it loses mass at the rate of 1 gram/sec. There is also an 
air resistance equal to twice its velocity retarding its movement. 
The differential equation expressing this motion is: 

^ = (2000 ~ 2Y) where Y=velocity (cm. /sec.) 
dX (200 -X) X=time(sec.) 

Find the velocity of the body every 10 seconds up through two 
and a half minutes. Also, plot this velocity as a function of time. 

Solution and Sample Run: The solution and sample run are 
illustrated in the accompanying photographs. 
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FIRST ORDER DIFFERENTIAL EQUATION SOLVER 



J^ ti^T^INESSSr WfSrM 8 ! S 

3899 D«<YOUR FUNCTION OF X,Y> 
WHERE D-DV/DX. 



THE T ^ m Tb R !§NTI N 6i N TfiE N PRO^M. 
^ji^INE^ AND^RE^N THE*" 



D-<2eee-2*v>/<2ee-x> 



The operator hits a key to exit from the program. Then he enters the 
differential equation into line 3000. He types RUN to restart the program. 



FIRST ORDER DIFFERENTIAL EQUATION SOLVER 



^hBED F AT E ClNE L 3i^ TI Ta E M FSRM B Ts"l 


3988 


D=(Y0UR FUNCTION OF 


X,Y> 


WHERE D 


=DV/DX. 




IF THIS 
THE 'C 


81? to^oWinuPShI 


I Program. 


IF NOT, 

Program 


HIT ANY OTHER KEY. 
INE 3888 AND RE-RUN 


THEN 
THE 



INITIAL VALUE OF X? 



The operator has hit the "C" key. The program responds by beginning the 
input phase. 



DIFFEQN 



197 




The operator has completed the input and requested tabular output. The 
program signals with a question mark that it is waiting for him to hit any 
key. It will not continue the run until he does so. 




The operator hits a key and the program responds with the tabulated 
output. X is time in seconds and Y is velocity in cm. /sec. 
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The program is rerun requesting graphical output. Before this photo, the 
program requested a minimum and maximum value of Y to use on the Y 
axis. Values of and 1000 respectively were entered. The program dis- 
plays the desired graph. 

PROGRAM LISTING 



100 REM DIFFEQN 

110 REM COPYRIGHT 1973 BY PHIL FELDMAN AND TOM RUGG 

200 PRINT CHR$Q47>:F0R J=l TO 10IGET RStNEXT 

210 print-first order differential equation solver" 

220 print:print:print 

230 print" the differential equation must be" 

240 print" defined at line 3000. the form is" 

250 printtprint" 3000 d=< your function of x»y> 

260 printtprint" where d=dy/dx, " tprint 

270 print chr$(2?>;:fqr J=l TO 36JPRINT CHR$(163);j 

NEXT J PRINT 
280 PRINT" IF THIS HAS ALREADY BEEN DONE* HIT" 
290 PRINT" THE 'C KEY TO CONTINUE THE PROGRAM." 
300 PRINTtPRINT" IF N0T» HIT ANY OTHER KEY. THEN" 
310 PRINT" ENTER LINE 3000 AND RE-RUN THE" 
320 PRINT" PROGRAM." 

330 PRINT CHR*U9KFQR J=l TO 31PRINT CHR$< 17)»{NEXT 
340 FOR J=l TO 38JPRINT CHR*( 162 V, INEXT 
350 PRINTJFOR J=l TO 16. f PRINT CHR*( 161 ) I NEXT 
360 PRINT CHR«18)»iFQR J=l TO 38IPRINT CHR*( 162)51 

NEXT 
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370 PRINT CHR$(19)IFGR J=l TO 4JPRINT CHR*< 17 )} INEXT 
380 FOR J=l TO 16:PRINT TAB< 37 HCHR$U8 ) f *CHR*( 161 )J 
NEXT 

390 get rsjif r$=»" then 390 

400 if r$<>"c" then end 

410 print:print:input"initial value of x"»xx 

420 PRINTJINPUT" INITIAL VALUE OF Y" J YY:Y=YY:X=XXJ 

GOSUB 3000 
430 PRINT :iNPUT"STEPSIZE IN X"JBX 
440 PRINT:iNPUT"FINAL VALUE OF X'SXF 
450 PRINT! INPUT" OUTPUT FORM <T=TABLE» G=GRAPH)"?F$ 
460 F$=LEFT*(F»»1)JIF F*<>"T" AND F$<>"G" THEN 450 
470 IF F*="T" THEN 600 

480 PRINT:iNPUT"MINIMUH Y FOR THE GRAPH AXIS"*YL 
490 PRINT:iNPUT"MAXlMUM Y FOR THE GRAPH AXIS"JYH 
500 IF YH5YL THEN 600 
510 PRINT! 

PRINT"*** ERROR! -- MAX Y MUST BE > MIN Y *** 
520 GOTO 480 
600 PRINTJFOR J=l TO 38IPRINT CHR*< 168 )> JNEXTJPRINTJ 

PRINT 
610 PRINT" THE FOLLOWING OUTPUT CAN BE HALTED" 
620 PRINT"BY HITTING ANY KEY. IT CAN THEN BE" 
630 PRINT"RESUMED BY HITTING ANY KEY. THIS MAY" 
640 PRINT"BE DONE AS OFTEN AS DESIRED." JPRINT 
650 PRINT" WHEN THE QUESTION MARK (?) APPEARS," 
660 PRINT"HIT ANY KEY TO BEGIN THE OUTPUT." 
670 PRINTIFOR J=l TO 38JPRINT CHR« 168 )} JNEXTSPRINT 
700 PRINTIIF F$="T" THEN PRINT TAB( 3 >5"X" »TAB( 20 )?"Y" 
710 IF F$="T" THEN PRINT TAB< 3)JCHR*( 196)»TAB( 

20)5CHR$(196):GOTO 800 
720 PRINT TAB(15);"YMIN="5YLt 

PRINT TABU5)f"YMAX="fYH 
730 PRINTJPRINT" X" JTAB( 17 )J"YMIN" JSPCC 13 )J "YMAX" 
740 PRINT TAB(16)»CHR«176)fCHR$(219)»{F0R Q=l TO 19 
750 PRINT CHR*(178)fJNEXTJPRINT CHR$( 219 )JCHR« 174 ) 
800 PRINT"?"? 

810 GET R$JIF R*="" THEN 810 
820 PRINT CHR*<157)JCHR*<32)fCHR$(157)f 
830 GOSUB 1500 

900 q=xx+dx:if G>XF+l.E-5 then end 

910 x=xx:y=yy:gosub 30<>o:ko=d:x=xx+dx/2:y=yy+ko*dx/2 

920 gosub 3000 :ki=d:y=yy+ki*dx/2: GOSUB 3000:K2=D 

930 X=XX+DX:Y=YY+K2*DX: GOSUB 3000:K3=D 

940 DY=DX*< K0+2*K1+2*K2+K3 )/6 

950 YY=YY+DYtXX=XX+DX: GOSUB 1500 

960 GOTO 900 

iooo print:print"*** error; — you have not defined" 
101o print" the differential equation" 
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1020 PRINT" IN LINE 3000," 

1030 END 

1500 IF F$="T" THEN PRINT XX5TABC 17 HYYJGGSUB 1600t 

RETURN 
1510 F=( YY-YL>/(YH-YL>:V=INT< 17+20*F+0.5> 
1520 C=215:iF V<17 THEN V=17JC=209 
1530 IF V>37 THEN V=37JC=209 
1540 PRINT XXjTAEK 16 )JCHR*( 221 )JTAB( V )iCHRM C }>TAB< 

38>»CHR*(221 ) 
1550 GOSUB 1600: RETURN 
1600 GET R*:iF R$="" THEN RETURN 
1610 GET R$JIF R$="" THEN 1610 
1620 RETURN 

2900 REM *****m***#####*#m#:m!|c;m 
2910 REM THE DIFFERENTIAL EQUATION MUST 
2920 REM BE DEFINED BETWEEN LINES 
2930 REM 3000 AND 3999, 
2940 REM 

2950 REM LINE 3000 MUST BE OVERWRITTEN! 
2960 REM MAKING IT THE FIRST LINE OF 
2970 REM THE EQUATION, 
2980 REM He**************************** 
3000 GOTO 1000 tREM REDEFINE THIS LINE TO BE 

D=(YOUR FUNCTION OF X»Y) 
3999 RETURN 

EASY CHANGES 

1 . If you have already entered the differential equation and 
wish to skip the introductory output, add this line: 

225 GOTO 410 

This will immediately begin the input dialog. 

2. If you wish to use negative stepsizes, line 900 must be 
changed to: 

900 Q=XX+DX:IF Q<XF-l.E-5 THEN END 
MAIN ROUTINES 

200 - 3 80 Displays initial messages. 

390 - 520 Gets user's inputs. 

600 - 670 Displays additional messages. 

700 - 750 Initializes output display. 

800- 830 Waits for user to hit a key to start the output. 

900 - 960 Computes each step. 



DIFFEQN 


1000- 


1030 


1500- 


1550 


1600- 


1620 


3000- 


3999 
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Error message. 

Plots graphical output. 

Stops and starts output. 

User supplied routine to define D. 

MAIN VARIABLES 

D Value of dY/dX. 

X, Y Values of X,Y on current step. 

XX, YY Values of X, Y on last step. 

DX Stepsize in X. 

XF Final value of X. 

F$ Output flag string (T=table, G=graph). 

YL, YH Minimum, maximum values of Y plot axis. 

V Tab position for graphical output. 

C CHR$ argument for graphical output. 

K0,K1, Runge-Kutta coefficients. 

K2,K3 

R$ User entered string. 

Q Work variable. 

J Loop index. 

SUGGESTED PROJECTS 

1 . Modify the program to display the tabular output followed 
by the graphical output. During the tabular phase, the mini- 
mum and maximum values of Y can be saved and automati- 
cally used as the plot limits for the graphical output. 

2. The value of dY/dX as a function of X is often a useful quan- 
tity to know. Modify the program to add it to the columnar 
display and/or the graphical display. 

3. The inherent error in the calculation depends on the stepsize 
chosen. Most cases should be run with different stepsizes to 
insure the errors are not large. If the answers do not change 
much, you can be reasonably certain that your solutions are 
accurate. Better yet, techniques exist to vary the stepsize 
during the calculation to insure the error is sufficiently 
small during each step. Research these methods and incor- 
porate them into the program. 

4. The program can be easily broadened to solve a set of coupled, 
first order, differential equations simultaneously. This would 
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greatly increase the types of problems that could be solved. 
Research this procedure and expand the program to handle 
it. 
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PURPOSE 

Is a picture worth a thousand words? In the case of mathe- 
matical functions, the answer is often "yes." A picture, i.e. a 
graph, enables you to see the important behavior of a function 
quickly and accurately. Trends, minima, maxima, etc. become 
easy and convenient to determine. 

GRAPH produces a two-dimensional plot of a function that 
you supply. The function must be in the form Y = (any function 
of X). The independent variable X will be plotted along the 
abscissa (horizontal axis). The dependent variable Y will be 
plotted along the ordinate (vertical axis). You have complete 
control over the scaling that is used on the X and Y axes. 

The program uses a special "double precision" graphing 
technique which doubles the normal resolution of the PET's 
graphics. 

HOW TO USE IT 

Before running the program, you must enter into it the func- 
tion to be plotted. This is done as a subroutine beginning at line 
5000. It must define Y as a function of X. The subroutine will 
be called with X set to various values. It must then set the 
variable Y to the correct corresponding value. The subroutine 
may be as simple or as complex as necessary to define the 
function. It can take one line or several hundred lines. Line 
5999 is already set as a RETURN statement, so you need not 
add another one. 
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Having entered this subroutine, you are ready to run the pro- 
gram. The program begins by warning you that it assumes the 
function has already been entered at line 5000. It will then ask 
you for the domain of X, i.e. the lowest and highest values of X 
that you wish to have plotted. Values can be positive or negative 
as long as the highest value is actually larger than the lowest one. 

Now you must choose the scale for Y. To do this intelligently, 
you probably need to know the minimum and maximum values 
of Y over the domain of X selected. The program finds these 
values and displays them for you. You must then choose the 
minimum and maximum values you wish to have on the Y scale. 
Again, any two values are acceptable as long as the maximum 
scale value of Y is larger than the minimum scale value of Y. 

The program will now display the plot of your function. Each 
axis is twenty characters long, with the origin defined as the 
minimum scale values of both X and Y. Twenty tick marks 
appear on each axis. The minimum, middle, and maximum 
values on each scale are displayed appropriately. (Note: the pro- 
gram may not be able to display all six scaling numbers if you 
input some scaling numbers having a large number of significant 
digits. If this occurs on the X axis, the program may use one or 
more of the expressions "XL," "XM," or "XU" instead of the 
actual numbers. These stand respectively for "X lower," "X mid," 
and "X upper." Similarly, "YL," "YM," or "YU" may be used 
on the Y axis.) 

The actual plot is drawn with twice the resolution shown on 
the axes. That is, forty values of X and Y are plotted. This is 
accomplished by using the various 2 by 2 graphic characters 
available on the PET. 

If a value for Y should be off-scale, a special shaded character 
will be displayed at the appropriate value of X. If the actual 
value of Y is too large, it will be plotted at the maximum Y 
value. Similarly, it will be drawn at the minimum Y value if it 
it too low. 

After the plot is drawn, the program will tell you to hit any 
key to continue. When you do so, information about the plot 
scaling is provided. For both X and Y, you are given the mini- 
mum, mid, and maximum values on each axis. Also displayed is 
the value corresponding to one tick mark on each axis. 

You now have the option of hitting G to draw the graph 
again or any other key to terminate the program. 
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After loading the program, the operator enters line 5000 to request the 
graph Y=SIN(X). RUN is typed to begin the program. 



THE SUBROUTINE AT LINES 

3898-5999 IS ASSUMED TO DEFINE 

V AS A FUNCTION OF X 



LOWEST VALUE OF X? 8 
HIGHEST VALUE OF X? 6.28 

^MAXIHUH- ?*2 GE ° F * 

MINIMUM V — 



■tf-ttt&FM 



NOW CHOOSE THE SCALE FOR V 
MINIMUM V SCALE VALUE? -1 
MAXIMUM V SCALE VALUE? lfl 



The input dialog transpires. The operator asks that the domain of X be 
0-6.28. The program responds by showing the maximum and minimum 
value of Y over this domain. The operator chooses an appropriate scale for 
the Y axis. 
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HIT ANY KEV 
TO CONTINUE 



"^T. 2 



The graph is displayed as requested. The program waits for the operator to 
hit any key to continue. 



!H8m - 



EACH SCALE DIVISION - 



V SCALING 

MINIMUM - -" 
MID - I 
MAXIMUM - 

EACH SCALE DIVISION - 



HIT 'G' TO SEE THE GRAPH AGAIN 
ANV OTHER KEV TO QUIT 



Relevant scaling information is shown. By pressing "G", the operator can 
seethe graph again. 
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PROGRAM LISTING 

100 REM GRAPH 

110 REM COPYRIGHT 1978 BY PHIL FELDMAN AND TOM RUGG 

150 C=33620:XV=12 

160 PB=102 

170 14=221 

200 PRINT CHR$< 147 >»TABU4);CHR$< 18 >r'GRAPH" {PRINT 

210 PRINTtGOSUB 1000 

220 print:print:input"lowest value of x"»xl:print: 

inpw'highest value of x"jxu 
230 if xuoxl then printjprint"-- -bad x range—": 

GOTO 220 

240 gosub 800ig0sub 300jgosub 500jprint chr$<19>{ 

print:print:print:print 
250 print"hit any key" {print {print" to continue" 
260 get q$5if q$="" then 260 

270 GOSUB 900 ... 

280 END / , ' v 

300 PRINT CHR*(147):P0KE C»91 "~ 

310 FOR J=l TO 20 J POKE C+Jfll4 f ^ a- 

320 POKE C-40*J»115{NEXT 4 V "■< 

330 FOR J=0 TO 20 STEP 10 

340 POKE C+40+J»93tPOKE C-1-40*J J 64 - eXW lose.,- , 

350 NEXT5POKE C+21f24JP0KE C-840,25 X( " , 

360 XM=( XL+XU )/2 J YM=< YL+YU )/2 ik iAA* w ., 1, * 

370 a*=str$<xd:a=len(a*):tb=xv-a+i: . 

IF TB<1 THEN TB=XV{A*="XL" !>■*•• l s: 

380 GOSUB 460{A*=STR$(XM){A=LEN< A*){TB=XV+10-A/2{j){ 

GOSUB 460JA$=STR$(XU) 
390 TB=XV+19JIF TB+LEN* A* »39 THEN TB=XV+20 {A$="XU" 
400 GOSUB 460:A*=STR*<YU)!A=LEN(A*):TB=XV-A-1{ 

IF TB<0 THEN TB=XV-3:A$="YU" 
410 NL=1JG0SUB 480{A*=STR$( YM)IA=LEN< a$ ):tb=xv-a-i : 

NL=11 

420 if tb<0 then tb=xv~3{a$="ym" 
430 gosub 48oja*=str*<yl>:a=len<a*>:tb=xv-a-i: 
if tb<0 then tb=xv-3ja*="yl" 

440 NL=21 {GOSUB 480 {RETURN ri^.c~ c <.rj 

460 PRINT CHR«19-/TF0R J=l TO 22JPRINT CHRt(17)»: 

NEXT {PRINT TAB< TB ) i A*! RETURN 
480 PRINT CHR*< 19)5 JFOR J=l TO NLJPRINT CHR$(17)5{ 

NEXTIPRINT TAB( TB )»A$!RETURN 
500 BX=( XU-XL )/20 IDY=< YU-YL )/20 
510 X=XL JGOSUB 700{PC=124JIF F=0 THEN PC=108 
520 IF D<0 JHEN D=OJPC=PB 
530 IF D^TTHEN D=20IPC=PB 
540 POKE C-40*D,PC 
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550 FOR J=l TO 20JX=XL+DX*(J-0»5)JGOSUB 700JPC=126J 

IF F=0 THEN PC=123 
560 IF D<0 THEN D=0tPC=PB 
570 IF D>20 THEN D=20:PC=PB 
580 POKE C+J-40*D,PC 
590 X=XL+DX*JJGOSUB 700iPK=PEEK($J-40*D)l 

IF IKO THEN D=0JPC=PBIGOTO 660 
600 IF D>20 THEN D=20JPC=PBtG0T0 660 
610 PC=226JIF F=0 THEN PC=127 
620 IF PK=126 THEN 660 
630 PC=255JIF F=0 THEN PC=?8 
640 IF PK=123 THEN 660 
650 PC=124tIF F=0 THEN PC=108 
660 POKE C+J-40*DrPC 
670 NEXT J RETURN 

700 GOSUB 5000:V=(Y-YL)/BY:D=INT<V) 
710 IF Y<YL THEN D=-5 
720 IF Y>YU THEN D=25 
730 F=i:iF <V-D»=0.5 THEN D=D+ltF=0 
740 RETURN 

800 dx=<xu-xl>/4q:x=xl:gosub 5ooo:mn=y:mx=y: 

for j=l to 40:x=xl+j*dxi60sub 5000 
810 if y>hx then mx=y 
820 if y<mn then mn=y 

830 NEXT 

840 PRINTJPRINT"QVER THIS RANGE OF X" t 

PRINT" MAXIMUM Y =">MX 
850 PRINT" MINIMUM Y =" JMNJPRIMT: 

PRINT"NOW CHOOSE THE SCALE FOR Y" {PRINT 
860 INPUT"MINIMUM Y SCALE VALUE'SYLSPRINTI 

INPUT-MAXIMUM Y SCALE VALUE" 5YU 
870 IF YU<=YL THEN PRINT: 

PRINT"-— BAD Y SCALING "{GOTO 840 

880 RETURN 

900 print chr$<147)»"x scaling" 

910 print" minimum - "jxliprint" mid - "»xm{ 

print" maximum - "jxu 
920 printtprint" each scale division - "jdxtprint: 

print:print"y scaling" 
930 print" minimum - "jyltprint" mid - "jym: 

print" maximum - "?yu 
940 printjprint" each scale division - "{dyiprintt 

PRINT 
950 PRINT"HIT 'G' TO SEE THE GRAPH AGAIN": 

PRINT" ANY OTHER KEY TO QUIT 

960 GET Q$:iF Q*="" THEN 960 
970 IF Q*="G" THEN GOSUB 300 {GOSUB 500 
980 RETURN 
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1000 PRINT CHR$U76>;:F0R J=l TO 11 

1010 PRINT CHR*(192)»{NEXTtPRINT" WARNING! " } : 

FOR J=l TO 11 
102O PRINT CHR*< 192 )?JNEXT SPRINT CHR$< 174)1 

GQSUB IIOOIPRINT CHR*(«>» 
1030 PRINT" THE SUBROUTINE AT LINES "fCHRt(W>: 

GOSUB 1100 
1040 PRINT CHR$(W)J" 5000-5999 IS ASSUMED TO 

DEFINE "iCHRtfWKGOSUB 1100 
1050 PRINT CHR*<W)5" Y AS A FUNCTION 

OF x m »chr*<w>:gosub 1100 

1060 PRINT CHR$< 173)J IFOR J=l TO 32 J 

PRINT CHR$(192)»:NEXTJPRINT CHR*(189) 
1070 RETURN 

1100 PRINT CHR$(W>fSPC( 32 )fCHR*(H)J RETURN 
4970 REM 

4980 REM SUBROUTINE AT 5000 MUST BE SET 
4990 REM 

500O REM *** Y=F<X) GOES HERE *** 
5999 RETURN 



EASY CHANGES 

1 . You may want the program to self-scale the Y axis for you. 
That is, you want it to use the minimum and maximum Y 
values that it finds as the limits on the Y axis. This can be 
accomplished by adding the following line: 

835 YU=MX:YL=MN:RETURN 

2. Do you sometimes forget to enter the subroutine at line 5000 
despite the introductory warning? As is, the program will 
plot the straight line Y=0 if you do this. If you want a more 
drastic reaction to prevent this, change line 5000 to read 

5000 Y= 1/0 

Now, if you don't enter the actual subroutine desired, the 
program will stop and print the following message after you 
enter the X scaling values. 

7DIVISION BY ZERO ERROR IN 5000 

3. Would you like something different to be displayed as the 
off-axis character? This can be done by changing the value 
of PB in line 160. The following table shows the correspond- 
ence between PB and the character used. 
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PB 


CHARACTER 


81 


• 


86 


X 


90 


♦ 


160 


■ 



For example, to have a diamond drawn as the off-axis char- 
acter, change line 160 to be: 

160PB=90 
MAIN ROUTINES 

1 50 - 1 70 Initializes constants. 

200 - 2 1 Displays introductory warning. 

220 - 280 Mainline routine—gets X scaling from user and 
calls various subroutines. 

300-480 Subroutines to draw graph axes and scale labelling. 

500 - 670 Subroutine to plot the function. 

700 - 740 Subroutine to determine the plotting position 
for Y. 

800- 880 Subroutine which determines the minimum, max- 
imum Y values ; gets Y scale from user. 

900 - 980 Subroutine which displays the scaling parameters, 
asks user if he wants the graph re-plotted. 

1000- 1 100 Subroutines to display the introductory warning. 

5000- 5999 User supplied subroutine to evaluate Y as a func- 
tion of X. 

MAIN VARIABLES 

XL,XM, Lower, middle, upper scale values of X. 

XU 

YL,YM, Lower, middle, upper scale values of Y. 

YU 

DX,DY Scale increments of X,Y. 

X, Y Current values of X,Y. 

C Poke argument for the plot origin. 

PC Poke argument for normal plotting. 

PB Poke argument for off-axis plotting. 

PK Peek value. 

W CHR$ argument. 

TB,XV Tab arguments. 
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F Y position flag (O=down, l=up). 

V Value of X or Y in scale units. 

D Integer value of V. 

MN,MX Minimum, maximum values of Y. 

A$ String representation of axis numbers. 

A Length of A$. 

NL Number of lines to print. 

Q$ User reply string. 

J Loop index. 

SUGGESTED PROJECTS 

1 . Determine and display the values of X at which the minimum 
and maximum values of Y occur. 

2. After the graph is plotted, allow the user to obtain the exact 
value of Y for any given X. 

3. Expand the graph to a 30 character width in the X direction. 
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INTEGRATE 



PURPOSE AND DEFINITION 

The need to evaluate integrals occurs frequently in much 
scientific and mathematical work. This program will numerically 
integrate a function that you supply using a technique known 
as Simpson's rule. It will continue to grind out successive ap- 
proximations of the integral until you are satisfied with the 
accuracy of the solution. 

Mathmetical integration will probably be a familiar term to 
those who have studied some higher mathematics. It is a funda- 
mental subject of second-year calculus. The integral of a function 
between the limits x=£ (lower limit) and x=u (upper limit) 
represents the area under its curve; i.e. the shaded area in Figure 1. 

We may approximate the integral by first dividing up the area 
into rectangular strips or segments. We can get a good estimate 
of the total integral by summing the areas of these segments by 
using a parabolic fit across the top. For those who understand 
some mathematical theory, Simpson's rule may be expressed as 



A - U 

J X = C 



A 
f(x)dx= - f(£) + f(u) 



N/2 (N-2)/2 

+ 4 J2 f[K + A(2j-l)] +2 Y, f[K + 2Aj] 
j=i j=i 
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Figure 1. The Integral of f(x) 



Here N is the number of segments into which the total interval 
is divided. N is 4 in the diagram. 

For a good discussion of the numerical evaluation of integrals 
see: McCracken, Dorn, Numerical Methods and Fortran Pro- 
gramming, New York, Wiley, 1964,pp.l60. Don't let the word 
"Fortran" scare you away. The discussions in the book are inde- 
pendent of programming language with only some program 
examples written in Fortran. 

HOW TO USE IT 



The program begins with a warning! This is to remind you 
that you should have already entered the subroutine to evaluate 
Y as a function of X. This subroutine must start at line 5000. 
More about it shortly. 

You will then be asked to provide the lower and upper limits 
of the integration domain. Any numerical values are acceptable. 
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It is not even necessary that the lower limit of X be smaller than 
the upper one. 

The program will now begin displaying its numerical evalua- 
tions of the integral. The number of segments used in the 
calculation continually doubles. This causes the accuracy of the 
integral to increase at the expense of additional computation 
time. For most functions, you should see the value of the inte- 
gral converging quickly to a constant (or near constant) value. 
This, of course, will be the best numerical evaluation of the 
integral at hand. 

When you are satisfied with the accuracy of the solution, you 
must hit the STOP key to terminate the program. If not, the 
program will run forever (assuming you can pay the electric 
bills). The amount of computation is approximately doubled 
each step. This means it will take the computer about the same 
amount of time to compute the next step that it took to 
compute all the previous steps. Thus, it will soon be taking the 
PET hours, days, and weeks to compute steps. Eventually, 
round-off errors begin degrading the results, causing a nice, con- 
stant, converged solution to change. However, the high precision 
of the PET's floating point arithmetic will postpone this for 
quite a while. You will probably lose patience before seeing it. 

The function to be integrated can be as simple or as compli- 
cated as you desire. It may take one line or a few hundred lines 
of code. In any case, the subroutine to express it must start at 
line 5000. This subroutine will be continually called with the 
variable X set. When it returns, it should have set the variable Y 
to the corresponding value of the function for the given X. The 
subroutine must be able to evaluate the function at any value of 
X between the lower and upper bounds of the integration 
domain. 

If your function consists of experimental data at discrete 
values of X, you must do something to enable the subroutine 
to evaluate the function at intermediate values of X. We recom- 
mend one of two approaches. First, you could write the subrou- 
tine to linearly interpolate the value of Y between the appropriate 
values of X. This will involve searching your data table for the 
pair of experimental X values that bound the value of X where 
the function is to be evaluated. Secondly, the program CURVE 
presented elsewhere in this section can produce an approximate 
polynomial expression to fit your experimental data. This 
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expression can then be easily entered as the subroutine at line 
5000. 

By the way, Simpson's rule is exact for any polynomial of 
degree 3 or less. This means that if the function can be written 
in the form 

Y = A*Xt3 + B*Xt2 + C*X + D 

where A, B, C, D are constants, the program will calculate the 
integral exactly even with only two segments. 

SAMPLE RUN 

The sample run illustrates the follo.wing integration 

x=l 



/ 



l. + x 2 

x=0 



dx 



This integral has the theoretical value of it (pi) as the correct 
answer! Pi, as you may know, has the value 3.1415926535. . . 
Before the run in started, the above function is entered at line 
5000. For reference, the elapsed time since the beginning of the 
run is given in parentheses after each line of output. It is in 
hours, minutes, and seconds. This gives you an idea of how long 
the program took to compute each step. However, these times 
are not displayed in the actual program output. 

50210 Y = t+/Cl+X"X) 
RUN 



INTEGRAL BY SIMPSON'S 


; RULE 










"■" WAKN 1 Ntr I ' 




THE 


SUBROUTINE AT LINES 


5000- 


-5999 IS ASSUMED 


TO DEFINE 




Y AS A FUNCTION 


OF X 



LOWER LIMIT OF X? £ 
UPPER LIMIT OF X? 1 
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# SEGMENTS 


INTEGRAL 


2 


3.13333334 


4 


3.14156863 


8 


3. 1415925 


16 


3.14159265 


32 


3.14159266 


64 


3.14159265 


128 


3. 14159266 


256 


3.14159266 


512 


3.14159265 


1024 


3.14159266 


2048 


3.14159265 


4096 


3.14159266 


8192 


3.14159267 


16384 


3.14159265 


32768 


3.14159267 


65536 


3.14159265 


131072 


3.14159264 


262144 


3.14159266 


524288 


3.14159268 


1048576 


3.14159264 
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(00:00:00) 

(00:00:00) 

(00:00:00) 

(00:00:01) 

(00:00:02) 

(00:00:03) 

(00:00:07) 

(00:00: 14) 

(00:00:27) 

(00:00:55) 

(00:01:49) 

(00:03:39) 

(00:07:20) 

(00:14:45) 

(00:29:45) 

(00:59:49) 

(02:00:00) 

(04:00:19) 

(08:02:03) 

(16:08:34) 



(STOP key pressed) 



PROGRAM LISTING 

100 REM INTEGRATE 

110 REM COPYRIGHT 1978 BY PHIL FELDMAN AND TOM RUGG 

150 N=i.' 

160 V=221 

200 PRINT CHR$< 147 HSPC< 4 >J- INTEGRAL BY SIMPSON'S 

rule"jprint:print 
210 print chr$< 176 h ifor j=l to 11 

220 PRINT CHR*<192)fJNEXTJPRINT" WARNING" -Jt 

FOR J=l TO 11 
230 PRINT CHR«<192H:NEXT:PRINT CHR*< 174 KGOSUB 290 2 

PRINT CHR*(V)i 

240 PRINT" THE SUBROUTINE AT LINES "JCHR$(V>: 

GOSUB 290 
250 PRINT CHR«VH" 5000-5999 IS ASSUMED TO 

DEFINE "fCHR$(V>: GOSUB 290 
260 PRINT CHR*<V)J» Y AS A FUNCTION 

of x "»chr*<v):gosub 290 

270 PRINT CHR$< 173 H IFOR J=l TO 32JPRINT CHR$(192)?I 
NEXT J PRINT CHR$(18?) 
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280 GOTO 300 

290 PRINT CHR$(V)fSPC(32)JCHRt(V)tRETURN 

300 PRINT* INPUTTOWER LIMIT OF X"?L 

310 print: input-upper LIMIT OF X"»U 

360 PRINKPRINT"* SEGMENTS" ."INTEGRAL" 
370 FOR J=l TO 10 {PRINT CHR$< 196 >i JNEXTI 

PRINT spc<io>:for J=i TO 8 
380 print chr$(196)j{next{print 
400 dx=<u-d/n:t=o 

410 X=LJGOSUB 5000tT=T+Y 

420 x=u:gosub sooo:t=t+y 

450 M=N/2{Z=0 

460 FOR J=l TO M 

470 X=L+DX«2*J-1>:G0SUB 5000tZ=Z+Y 

480 next;t=t+4*z 

500 M=M-i:iF M=0 THEN 600 

510 z=o:for J=l TO M 

520 x=l+dx*2*j:gosub 5000:Z=Z+Y 

530 next:t=t+2*z 

600 A=BX*T/3 

610 PRINT N»SPC(8)»A 

620 N=N*2 

630 GOTO 400 

4970 REM 

4980 REM ** ENTER SUBROUTINE AT 5000 «» 

4990 REM 

5000 REM ***** Y=F(X) GOES HERE ***** 

5999 RETURN 

EASY CHANGES 

1. You might want the program to stop calculation after the 
integral has been evaluated for a given number of segments. 
Adding the following line will cause the program to stop after 
the integral is evaluated for a number of segments greater 
than or equal to 100. 

6 1 5 IF N>= 1 00 THEN END 

Of course, you may use any value you wish instead of 100. 

2. Perhaps you would like to see the number of segments 
change at a different rate during the course of the calculation. 
This can be done by modifying line 620. To increase the rate 
of change, try 

620 N=N*4 
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To change it at a constant (and slower) rate, try 

620 N=N+50 
Be sure, however, that the value of N is always even. 

MAIN ROUTINES 

1 50 - 1 60 Initializes constants. 

200 - 290 Displays introductory messages and warning. 

300 - 3 1 Gets integration limits from operator. 

360-380 Displays column headings. 

400 - 420 Computes integral contribution from end points. 

450 - 480 Adds contribution from one summation. 

500 - 530 Adds contribution from other summation. 

600 - 630 Completes integral calculation and displays it. 
Increases number of segments and restarts cal- 
culation. 

5000-5999 Operator supplied subroutine to evaluate f(x). 

MAIN VARIABLES 

N Number of segments. 

V CHR$ argument. 
J Loop index. 

L,U Lower, Upper integration limit of x. 

DX Width of one segment. 

T Partial result of integral. 

M Number of summations. 

Z Subtotal of summations. 

A Value of integral. 

X Current value of x. 

Y Current value of the function y=f(x). 

SUGGESTED PROJECTS 

1 . Add an additional column to the output which gives the 
elapsed time since the previous line was displayed. Thus, 
you can compare the tradeoff between additional computa- 
tion time and solution accuracy. This change will involve 
using the PET's built-in timing variables TI and TI$. 
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2. Research other similar techniques for numerical integration 
such as the simpler trapezoid rule. Then add a column of 
output computing the integral with this new method. Com- 
pare how the two methods converge toward the (hopefully) 
correct answer. 

3. Modify the program to compute answers to "double pre- 
cision" or greater; i.e. at least fifteen significant digits. Try 
the function used in the sample run to see if you can calculate 
pi to this high degree of precision. 
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PURPOSE 

This program solves a set of simultaneous linear algebraic 
equations. It is capable of handling up to fifteen equations in 
fifteen unknowns. This type of problem often arises in scientific 
and numerical work. Algebra students encounter them regularly 
-many "word" problems can be solved by constructing the 
proper set of simultaneous equations. 

The equations to be solved can be written mathematically as 
follows: 

A 11 X 1 +A 12 X 2 +...+A 1N X N = R 1 

A 2 1 X l +A 22 X 2 + --- +A 2N X N =R 2 



A N1 X 1 +A N2 X 2 + - +A NN X N =R 



N 



N is the number of equations and thus the number of unknowns 
also. The unknowns are denoted X, through X XT . 

Each equation contains a coefficient multiplier for each un- 
known and a right-hand-side term. These coefficients (the A 
matrix) and the right-hand-sides (R x through R N ) must be 
constants-positive, negative, or zero. The A matrix is denoted 
with double subscripts. The first subscript is the equation num- 
ber and the second one is the unknown that the coefficient 
multiplies. 
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HOW TO USE IT 

The program will prompt you for all necessary inputs. First, 
it asks how many equations (and thus how many unknowns) 
comprise your set. This number must be at least 1 and no more 
than 15. Then, you must enter the coefficients and right-hand- 
sides for each equation. The program will request these one at a 
time, continually indicating which term it is expecting next. 

Once it has all your inputs, the program begins calculating 
the solution. This may take a little while if the value of N is 
high. The program ends by displaying the answers. These, of 
course, are the values of each of the unknowns, X l through X N . 

If you are interested, the numerical technique used to solve 
the equations is known as Gaussian elimination. Row interchange 
to achieve pivotal condensation is employed. (This keeps maxi- 
mum significance in the numbers.) Then back substitution is 
used to arrive at the final results. This technique is much simpler 
than it sounds and is described well in the numerical analysis 
books referenced in the bibliography. 

SAMPLE PROBLEM AND RUN 

Problem: A painter has a large supply of three different 
colors of paint: dark green, light green, and pure blue. The dark 
green is 30% blue pigment, 20% yellow pigment, and the rest 
base. The light green is 10% blue pigment, 35% yellow pigment, 
and the rest base. The pure blue is 90% blue pigment, no yellow 
pigment, and the rest base. The painter, however, needs a me- 
dium green to be composed of 25% blue pigment, 25% yellow 
pigment, and the rest base. In what percentages should he mix 
his three paints to achieve this mixture? 

Solution: Let X l = percent of dark green to use, 
X 2 = percent of light green to use, 
X 3 = percent of pure blue to use. 
The problem leads to these three simultaneous equations to 
solve: 

0.3 X y +0.1 X 2 +0.9X 3 =0.25 
0.2X 1 +0.35X 2 =0.25 

Xl + x 2 + X 3 = 1.0 

The first equation expresses the amount of blue pigment in the 
mixture. The second equation is for the yellow pigment. The 
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third equation states that the mixture is composed entirely of 
the three given paints. (Note that all percentages are expressed 
as numbers from 0-1.) The problem leads to the following use 
of SIMEQN. 

SAMPLE RUN 

A SIMULTANEOUS LINEAR EQUATION SOLVER 

HOW MANY EQUATIONS IN THE SET? 3_ 

THE 3 UNKNOWNS WILL BE DENOTED 
XI THROUGH X3 

ENTER THE PARAMETERS FOR EQUATION 1 

COEFFICIENT OF XI? _;_3 
COEFFICIENT OF X2? ^J_ 
COEFFICIENT OF X3? ^_9 
RIGHT HAND SIDE? .25 



ENTER THE PARAMETERS FOR EQUATION 2 

COEFFICIENT OF XI? JL _2 
COEFFICIENT OF X2? . 35 
COEFFICIENT OF X3? £ 
RIGHT HAND SIDE? _;_25 

ENTER THE PARAMETERS FOR EQUATION 3 

COEFFICIENT OF XI? I 
COEFFICIENT OF X2? l_ 
COEFFICIENT OF X3? l_ 
RIGHT HAND SIDE? 1_ 

THE SOLUTION IS 

Xl= .55 
X2= .4 
X3= .05 

READY. 

Thus, the painter should use a mixture of 55% 
dark green, 40% light green, and 5% pure blue. 
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PROGRAM LISTING 

100 REH SIMEGN 

110 REH COPYRIGHT 1978 BY PHIL FELDMAN AND TOM RUGG 

200 PRINT CHR$( 

147)5 "A SIMULTANEOUS LINEAR EQUATION SOLVER" 
210 FOR J=l TO 37IPRINT CHR$( 197 )i {NEXT 
220 PRINT! PR I NT 

300 INPUT"HOy MANY EQUATIONS IN THE SET"»N 
310 PRINT;N=INT<N)tIF N>0 AND N<16 THEN 330 
320 PRINT"** ERROR! M IT MUST BE BETWEEN 1-15": 

PRINT; GOTO 300 
330 DIM A<N»N)»R(N)»V(N) 

340 PRINT"THE"5N;" UNKNOWNS WILL BE DENOTED" 
350 PRINT"X1 THROUGH X"}«ID*( STR«(M)»2f 10 ) 
360 GOSUB 900 X FOR J=l TO N 

370 PRINT"ENTER THE PARAMETERS FOR EQUATION" J J 
380 PRINTJFOR K=l TO N 

390 PRINT"COEFFICIENT OF X"}MIB$< STR$< K ) f 2»10 )i 
400 INPUT A(J»K):NEXT 
410 INPUT-RIGHT HAND SIDE"fR<J> 
420 GOSUB 900 { NEXT 
430 GOSUB 2000 

500 -PRINT-THE SOLUTION IS" {PRINT 
510 FOR J=l TO N 

520 PRINT" X"iMID*<STR«(J)f2flO)f ,, = "}V(J) 
530 NEXT; END 

900 PRINTJPRINT" " 

910 PRINT {RETURN 

2000 IF N=l THEN W 1 >=R< 1 )/A< 1 »1 ) {RETURN 

2010 FOR K=l TO N-l 

2020 I=K+1 

2030 L=K 

2040 IF ABS<A<IfK)»ABS(A(L»K>) THEN L=I 

2050 IF KN THEN 1=1+1 {GOTO 2040 

2060 IF L=K THEN 2100 

2070 FOR J=K TO NJQ=A< KfJ )JA( K» J )=M L» J ) 

2080 A(L»J)=QtNEXT 

2090 Q=R( K ):R( K >=R< L ){R( L 5=Q 

2100 I=K+1 

2110 Q=A<IrK>/A<K>K>:A<I»K>=0 

2120 FOR J=K+1 TO NiA< I»J)=A< I»J)-Q#A(Kf JKNEXT 

2130 R(I )=R<I>-Q*R(K):iF KN THEN I=I+l{GOTO 2110 

2140 NEXT 

2150 V(N)=R(N)/A(N ? N){FOR I=N-1 TO 1 STEP -1 

2160 Q=0;FOR J=I+1 TO NJQ=Q+A(I»J)*V(J) 

2170 V<I )=(R(I)-Q)/A(IfI){NEXT:NEXT 

2180 RETURN 
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EASY CHANGES 

You may be surprised sometime to see the program fail com- 
pletely and display this message: 

7DIVISION BY ZERO ERROR IN 21 50 
This means your input coefficients (the A array) were ill-condi- 
tioned and no solution was possible. This can arise from a variety 
of causes; e.g. if one equation is an exact multiple of another, or 
if every coefficient of one particular unknown is zero. If you 
would like the program to print a diagnostic message in these 
cases, add this line. 

2145 IF A(N,N)=0 THEN PRINT"ILL-CONDITIONED 

INPUT": STOP 

MAIN ROUTINES 

200 - 220 Clears screen and displays program title. 

300 - 430 Gets input from user and calculates the solution. 

500 - 530 Displays the solution. 

900-910 Subroutine to space and separate the output. 

2000-2180 Subroutine to calculate the solution; consisting 

of the following parts: 

2000 Forms solution if N= 1 . 

2010-2140 Gaussian elimination. 

2030 - 2100 Interchanges rows to achieve pivotal condensation 

2150-2180 Back substitution. 

MAIN VARIABLES 

I,J,K,L Loop indices and subscripts. 

N Number of equations (thus number of unknowns 

also). 

A Doubly dimensioned array of the coefficients. 

R Array of right-hand-sides. 

V Array of the solution. 

Q Work variable. 
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SUGGESTED PROJECTS 

1 . The program modifies the A and R arrays while computing 
the answer. This means the original input cannot be displayed 
after it is input. Modify the program to save the information 
and enable the user to retrieve it after the solution is given. 

2. Currently, a mistake in typing input cannot be corrected 
once the RETURN key is pressed after typing a number. 
Modify the program to allow correcting previous input. 

3. The restriction that N not be greater than 15 is due to the 
PET's inability to handle array subscripts outside the range 
0-255. The A array is dimensioned A(N,N) which means N 
cannot be 16 or higher. Modify the program to allow N>15 
by breaking up the A array into multiple arrays. However, it 
is unlikely that you will have an application for the program 
with N> 15. 
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PURPOSE 

Ever think of yourself as a statistic? Many times we lament at 
how we have become just numbers in various computer memories, 
or we simply moan at our insurance premiums. To most people, 
the word "statistics" carries a negative connotation. To invoke 
statistics is almost to be deceitful, or at least de-humanizing. 
But really, we all use statistical ideas regularly. When we speak 
of things like "she was average height" or the "hottest weather 
in years," we are making observations in statistical terms. It is 
difficult not to encounter statistics in our lives, and this book is 
no exception. 

Of course, when used properly, statistics can be a powerful, 
analytical tool. STATS analyzes a set of numerical data that 
you provide. It will compile your list, order it sequentially, and/ 
or determine several statistical parameters which describe it. 

This should prove useful in a wide variety of applications. 
Teachers might determine grades by analyzing a set of test 
scores. A businessman might determine marketing strategy by 
studying a list of sales to clients. Little leaguers always like to 
pore over the current batting and pitching averages. You can 
probably think of many other applications. 

HOW TO USE IT 

Before entering the data, the program will ask whether or not 
you wish to use identifiers with the data values. These identifiers 
can be anything associated with the data: e.g. names accom- 
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panying test scores, cities accompanying population values, 
corporations accompanying sales figures, etc. Hit the Y or N 
key to indicate yes or no regarding the use of identifiers. You 
do not need to hit the RETURN key. 

Next, your data list must be entered. The program will 
prompt you for each value with a question mark. If identifiers 
are being used, you will be prompted for them before being 
asked for the associated data value. You may use any length 
character strings you desire for identifiers. However, if you 
limit them to a maximum of seventeen characters, the for- 
matting of later output will be "cleaner." 

Two special inputs, *END and *BACK, may be used at any 
time during this data input phase. They are applicable whether 
or not identifiers are being used. To signal the end of data, 
input the four character string, *END, in response to the (last) 
question mark. You must, of course, enter at least one data 
value. 

If you discover that you have made a mistake, the five 
character string, *BACK, can be used to back up the input 
process. This will cause the program to re-prompt you for the 
previous entry. By successive uses of *BACK you can return 
to any previous position. 

With the input completed, the program enters a command 
mode. You have four options to continue the run: 

1 ) List the data in the order input 

2) List the data in ranking order 

3) Display statistical parameters 

4) End the program 

Simply input the number 1, 2, 3, or 4 to indicate your choice. 
If one of the first three is selected, the program will perform the 
selected function and return to this command mode to allow 
another choice. This will continue until you choose 4 to termi- 
nate the run. A description of the various options now follows. 

Options 1 and 2 provide lists of the data. Option 1 does it in 
the original input order while option 2 sorts the data from 
highest value to lowest. In either case the identifiers, if used, 
will be shown alongside their associated values. 

The lists are started by hitting any key when told to do so. 
Either list may be temporarily halted by hitting any key while 
the list is being displayed. This allows you to leisurely view data 
that might otherwise start scrolling off the screen. Simply hit 
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any key to resume the display. This starting and stopping can be 
repeated as often as desired. When the display is completed, you 
must again hit a key to re-enter the command mode. 

Option 3 produces a statistical analysis of your data. Various 
statistical parameters are calculated and displayed. The following 
is an explanation of some that may not be familiar to you. 

Three measures of location, or central tendency, are provided. 
These are indicators of an "average" value. The mean is the sum 
of the values divided by the number of values. If the values are 
arranged in order from highest to lowest, the median is the 
middle value if the number of values is odd. If it is even, the 
median is the number halfway between the two middle values. 
The midrange is the number halfway between the largest and 
smallest values. 

These measures of location give information about the 
average value of the data. However, they give no idea of how 
the data is dispersed or spread out around this "average." For 
that we need "measures of dispersion" or as they are sometimes 
called, "measures of variation." The simplest of these is the 
range which is just the difference between the highest and 
lowest data values. Two other closely related measures of dis- 
persion are given: the variance and the standard deviation. The 
variance is defined as: 



2 (V ; - M) 2 



VA = i=1 



N-l 

Here N is the number of values, V ; is value i, M is the mean 
value. The standard deviation is simply the square root of the 
variance. We do not have space to detail a lengthy discussion of 
their theoretical use. For this refer to the bibliography. Basically, 
however, the smaller the standard deviation, the more all the 
data tends to be clustered close to the mean value. 

One word of warning- the first time option 2 or 3 is selected, 
the program must take some time to sort the data into numerical 
order. The time this requires depends upon how many items are 
on the list and how badly they are out of sequence. Average 
times are twenty seconds for twenty-five items, about ninety 
seconds for fifty items, almost six minutes for a hundred items. 
The PET will pause while this is occurring, so don't think it has 
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hung up or fallen asleep! If you have several items on your list, 
this is the perfect chance to rob your refrigerator, make a quick 
phone call, or whatever. 

SAMPLE RUN 



THIS PROGRAM DOES A STATISTICAL 
ANALYSIS ON A LIST OF DATA VALUES. 
IT WILL ORDER THE LIST AND FIND SEVERAL 
STATISTICAL QUANTITIES DESCRIBING 
THE DATA. 

THE DATA MAY BE ENTERED IN EITHER 
OF TWO FORMS : 

1) AS A SIMPLE LIST OF VALUES, OR 

2) WITH AN IDENTIFIER ACCOMPANYING 
EACH VALUE. 



WOULD YOU LIKE TO USE 
WITH YOUR INPUT <Y OR N> 



IDENTIFIERS 



The program describes its wares. It asks whether or not the operator 
wishes to use identifiers with his or her input data. 
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N IDENTIFIER ACCOMPANYING 



WOULD YQU LIKE TOUSE IDENTIFIERS 
WITH YOUR INPUT <Y OR NT ? YES 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

THE DATA MUST NOW BE ENTERED. 

FOR EACH DATA ITEM, ENTER ITS 
IDENTIFIER (ABBREVIATED I.D.) AND ITS 
VALUE IN RESPONSE TO THE SEPARATE 
QUESTION MARKS. 

IF YOU* MAKE A MISTAKE. TYPE 
•BACK TO RE-ENTER THE LAST DATUM. 



WHEN THE LI 
•END TO TERMTN 



1ST IS COMPLETED, TYPE 
NATE THE LIST. 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



?'?{'?? I i EM * 1 



The operator wishes to use identifiers. The program explains how data is 
to be entered; it is ready to receive the operator's input. 



DATA ITEM tt 1 
I.D.? FELDMAN 
VALUE? 98 

DATA ITEM * 2 
I .D.? GARBANZO 
VALUE? 76 

DATA ITEM * 3 
I.D.? O'FURTH 
VALUE? 81.5 

DATA ITEM H 4 
I.D.? RUGG 
VALUE? 97.5 



TO* 'Wht 



The operator enters the names and scores of those who took a program- 
ming aptitude test. The actual test was given to many people but, for 
demonstration purposes, only five names are used here. The special string, 
*END, is used to signal the end of the data. 
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♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

CONTINUATION OPTIONS — 



1) LIST 

2) LIST 

3) DISPL 
-4) ENI 



Ufl In rq 

t STATIST 



RIGINAL 



WHAT NEXT <1, 2, 3, OR 45? 2 
♦♦♦♦♦♦« 

THE DATA IN RANKING ORDER 

5 TOTAL ENTRIES 

WHILE THE I ' 
CAN HIT ANV K 
HALT. THE DI 
HIT ANOTHER KtT. 

HIT ANV KEV TO START THE DISPLAV. 



HILL RES 



Mm\ 



The operator requests that the list be sorted into numerical order. The 
program waits for a key to be pressed to continue the run. 



WHAT NEXT <i, 2, 3, OR 4)? 2 
♦♦♦♦♦♦♦♦♦♦♦♦♦ 

THE DATA IN RANKING ORDER 
5 TOTAL ENTRIES 

CAN^i^ANV^^TO^AUsIT^ 
H , VANOTHER D Ki? 1 : flV " ILL rEsU ' 



ILL RESUME WHEN \ 



HIT ANV KEV TO START THE DISPLAV. 
VALUE I.D. 



HIT ANV KEV TO CONTINUE 



The operator hits a key and is shown the data list in ranking order. Again, 
the program waits for the pressing of a key to continue. 
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WHAT NEXT <1, 2, 3, OR 4>? 3 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦« 

STATISTICAL ANALYSIS 
VOUR LIST HAS 5 VALUES 



MINIMUM VALU^ - ' 
MAXIMUM VALU 
RANGE = 29 
SUM OF THE VALUES 



MEAN = 84.4 
MEDIAN = P< 
MID-RANGE ■ 



HIT ANV KEV TO CONTINUE 



Later in the run, the operator selects continuation option 3. This calculates 
and displays the various statistical quantities. 



program listing 

100 rem stats 

110 rem copyright 1978 by phil feldman and tom rugg 

150 b$="*back ,, :e*= ,, *end" 

160 MX=100 

170 DIM D$<MX)»V<MXhZ<MX> 

180 Z<0>=0tN*=" " 

200 PRINT CHR*( 147 >»TAB< 16 )i "STATS" 

210 PRINT TAB(16)?:F0R J=l TO 5JPRIMT CHR*< 196)5: 

NEXT 
220 PRINTJPRINTt 

PRINT" THIS PROGRAM DOES A STATISTICAL" 
230 PRINT"ANALYSIS ON A LIST OF DATA VALUES." 
240 PRINT"IT WILL ORDER THE LIST AND FIND SEVERAL" 
250 PRINT"STATISTICAL QUANTITIES DESCRIBING" 
260 PRINT"THE DATA." {PRINT 

270 PRINT" THE DATA MAY BE ENTERED IN EITHER" 
280 PRINT"0F TWO FORMS:" 

290 PRINT" 1) AS A SIMPLE LIST OF VALUES, OR" 
300 PRINT" 2) WITH AN IDENTIFIER ACCOMPANYING" 
310 PRINT" EACH VALUE." SPRINT 
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320 PRINT" WOULD YOU LIKE TO USE IDENTIFIERS" 

330 PRINT"WITH YOUR INPUT < Y OR N ) ? " i 

340 GET R*:iF R$="" THEN 340 

350 IF R$="Y" THEN PRINT"YES" IF=1 tGOTO 400 

360 IF R$="N" THEN PRINT"N0" :F=0 IGOTO 400 

370 GOTO 340 

400 GOSUB 2100JPRINT 

410 PRINT" THE DATA MUST NOW BE ENTERED," 

420 PRINT: IF F=l THEN 460 

430 PRINT" ENTER EACH VALUE SEPARATELY IN" 

440 PRINT"RESPONSE TO THE QUESTION MARK," 

450 GOSUB 2000:GOTO 500 

460 PRINT" FOR EACH DATA ITEM, ENTER ITS" 

470 PRINT"IDENTIFIER < ABBREVIATED I.D.) AND ITS" 

480 PRINT"VALUE IN RESPONSE TO THE SEPARATE" 

490 PRINT"8UESTI0N MARKS." : GOSUB 2000 

500 GOSUB 2100JFOR J=l TO 9 J GET R*!NEXT:N=1 

510 IF N<1 THEN N=l 

520 PRINT{PRINT"DATA ITEM #"JN 

530 IF F=0 THEN D«( N )=N$ J GOTO 570 

540 INPUT"I.D."»R$:iF R*=E$ THEN 700 

550 IF R$=B* THEN N=N-1IG0T0 510 

560 D*(N)=R$ 

570 input"value";r$:if r$=e* then 700 

580 IF R$=B$ AND F=l THEN 520 
590 IF R$=B$ THEN N=N-i:GOTO 510 
600 V(N)=MAL(R$) 
610 IF N=MX THEN PRINT 5 

PRINT"**: NO MORE DATA ALLOWED! **'* IN=N+i:GOTQ 700 
620 N=N+ltGOT0 510 
700 N=N-1JIF N=0 THEN PRINT 
710 IF N=0 THEN PRINT"** NO DATA — RUN ABORTED **" t 

END 
720 GOSUB 2100 

730 PRINT:PRINT"-~ CONTINUATION OPTIONS — "SPRINT 
740 PRINT" 1 ) LIST DATA IN ORIGINAL ORDER 
750 PRINT" 2) LIST DATA IN RANKING ORDER 
760 PRINT" 3) DISPLAY STATISTICS 
770 PRINT" 4) END PROGRAM 

780 PRINT :INPUT"WHAT NEXT (1, 2, Z, OR 4)'SR 
790 R=INT<R>:iF R<1 OR R>4 THEN 730 
800 IF R=4 THEN END 
810 ON R GOSUB 1000,1200? 1500 
820 GOTO 720 
1000 GOSUB 2100:PRINT 

1010 PRINT" THE ORIGINAL DATA ORDER" SPRINT 
1020 PRINT N»"TOTAL ENTRIES" JGOSUB 2300 
1030 PRINTJPRINT" # VALUE'S 
1040 IF F=0 THEN PRINT 
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1050 IF F=l THEN PRINT TAB< 22 >»" I.lL" 

1060 FOR J=l TO N 

1070 PRINT JJTAB(5)»V(J)JTAB(22)5D$<J) 

1080 GOSUB 2500 

1090 NEXT {GOSUB 2900 J RETURN 

1200 GOSUB 2100:PRINT 

1210 PRINT" THE DATA IN RANKING ORDER" . 'PRINT 

1220 PRINT N» "TOTAL ENTRIES" 

1230 GOSUB 2700 

1280 GOSUB 2300 {PRINT {PRINT" * VALUE"? 

1290 IF F=0 THEN PRINT 

1300 IF F=l THEN PRINT TAB(22)t"I.D." 

1310 FOR J=l TO N 

1320 PRINT JJTAB<5)»V(Z(J))»TAB(22)»D$<Z(J)) 

1330 GOSUB 2500 

1340 nextjgosub 2900 {return 

1500 gosub 2100 {print 

1510 print tab< 6)5 "statistical analysis" {print 

1520 print" your list has "5n 5 "values" 

1530 np=o{nn=o;nz=o{sg=o:w=o 

1540 for j=l to n{w=w+v<j){sg=sq+v(j)*v<j> 

1550 if v(j»0 then np=np+1 

1560 if v<jko then nn=nn+1 

1570 if vu>=0 then nz=nz+1 

1590 NEXT{?i=W/N{VA=0;iF N=l THEN 1610 

1600 VA=( SG-N*M*M >/< N-l ) 

1610 SD=SGR<VA> 

1620 PRINT NP5"POSITIVE5"SNN5"NEGATIVE5"5NZ5"ZERO"; 

PRINT 
1630 GOSUB 2700IPRINT"MINIMUM VALUE = "5V(Z<N>> 
1640 PR I NT "MAX I MUM VALUE = "5V(Z(1)> 
1650 PRINT"RANGE = " JV( Z< 1 ) >-V< ZCN } > 
1660 PRINT H SUM OF THE VALUES = "5U5PRINT 
1670 PRINT"MEAN = "5M 
1680 Q=INT<N/2)+l{MD=V<Z(Q)){ 

IF N/2>INT<N/2> THEN 1700 
1690 MD=<V<Z<Q))+V<Z(Q-l)))/2 
1700 PRINT"MEDIAN = "5MD 

1710 PRINT"MID-RANGE = " 5< V< Z( 1 ) )+V( Z( N )) )/2 
1720 PRINT {PRINT"STIL DEVIATION = "5SD 
1730 PRINT"VARIANCE = "5VA 
1740 GOSUB 2900 {RETURN 

2000 PRINT {PRINT" IF YOU MAKE A MISTAKE, TYPE" 
2010 PRINT B$5" TO RE-ENTER THE LAST DATUM." 
2020 PRINT? 

PRINT" WHEN THE LIST IS COMPLETED, TYPE" 

2030 PRINT E*5" TO TERMINATE THE LIST," {RETURN 
2100 PRINTJFOR J=l TO 39JPRINT CHR$< 218)5 {NEXT n- 
2110 PR I NT {RETURN 



236 BASIC Programs for the PET 

2300 print: 

print" while the list is displaying* you" 
2310 print"can hit any key to cause a temporary" 
2320 print"halt, the display will resume when you" 
2330 print"hit another key." 
2340 print: 

PRINT" HIT ANY KEY TO START THE DISPLAY," 
2350 GET R$*.IF R$=" H THEN 2350 
2360 RETURN 

2500 GET R*:iF R$="" THEN RETURN 
2510 GET R*:iF R$="" THEN 2510 
2520 RETURN 
2700 IF Z(0)=1 THEN RETURN 

2710 for j=i to n:z(J)=j:next:if N=l THEN RETURN 
2720 nm=n-i:for k=i to njfor J=l TO NHiNl=Z(J) 

2730 N2=Z(J+l):iF V(N1»V(N2) THEN 2750 

2740 Z(J+l)=Ni:Z(J)=N2 

2750 NEXT I NEXT :Z(0)=1J RETURN 

2900 PRINT:PRINT"HIT ANY KEY TO CONTINUE" 

2910 GET R$:iF R$="" THEN 2910 

2920 RETURN 



EASY CHANGES 

1 . The program is currently dimensioned to allow a maximum 
of 100 data items. The total storage required for the program 
depends on the maximum dimension parameter, MX; whether 
or not identifiers are being used; and if so, on the length of a 
typical identifier. An 8K PET will have enough storage for 
100 data values with identifiers of 18 character average 
length. If there are more than 100 items in your application, 
you will need to change the value of MX in line 160 accord- 
ingly. The maximum allowable value is 255, which would 
necessitate this change: 

160MX=255 

However, this would not leave any room to use identifiers. 
An interplay results between lower setting of MX and longer 
average identifier length allowable. A 200 setting for MX will 
allow identifiers of 5 character average length. A 1 50 value 
for MX will allow identifiers of 10 character average length. 

2. Because of possible conflicts with identifiers in your list, 
you may wish to change the special strings that signal termi- 
nation of data input and/or the backing up of data input. 
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These are controlled by the variables E$ and B$, respectively. 
They are set in line 150. If you wish to terminate the data 
with /DONE/ and to back up with /LAST/ for example, 
line 150 should be: 

150 B$="/LAST/":E$="/DONE/" 

3. You may wish to see your lists sorted from smallest value to 
largest value instead of the other way around, as done now. 
This can be accomplished by changing the "greater than" 
sign (>) in line 2730 to a "less than" sign (<). Thus: 

2730 N2=Z(J+1):IF V(N1)<V(N2) THEN 2750 

This will, however, cause a few funny things to happen to the 
statistics. The real minimum value will be displayed under the 
heading "maximum" and vice-versa. Also, the range will have 
its correct magnitude but with an erroneous minus sign in 
front. To cure these afflictions, make these changes also: 

1630 GOSUB 2700:PRINT"MINIMUM VALUE = ";V(Z(1)) 
1640 PRINT"MAXIMUM VALUE = ";V(Z(N)) 
1650 PRINT"RANGE = ";V(Z(N))-V(Z(1)) 



MAIN ROUTINES 

1 50 - 1 80 Initializes constants and dimensioning. 

200 - 370 Displays messages, determines if identifiers will be 

used. 
400 - 620 Gets data from the user. 
700 - 7 1 Checks that input contains at least one value. 
720-820 Command mode - gets user's next option and 

does a GOSUB to it. 
1000-1090 Subroutine to list data in the original order. 
1 200 - 1340 Subroutine to list data in ranking order. 
1500-1740 Subroutine to calculate and display statistics. 
2000 - 2360 Subroutines to display various messages. 
2500- 2520 Subroutine to allow user to temporarily start and 

stop display listing. 
2700-2750 Subroutine to sort the list in ranking order. 
2900 - 2920 Subroutine to detect if user has hit a key to 

continue. 
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MAIN VARIABLES 

MX Maximum number of data values allowed. 

D$(MX) String array of identifiers. 

V(MX) Array of the data values. 

Z(MX) Array of the sorting order. 

N Number of data values in current application. 

F Flag on identifier usage ( 1 =yes, 0=no). 

B$ Flag string to back up the input. 

E$ Flag string to signal end of the input. 

N$ String for a null identifier. 

R$ User input string. 

NM N-l. 

R Continuation option. 

NP Number of positive values. 

NN Number of negative values. 

NZ Number of zero values. 

W Sum of the values. 

SQ Sum of the squares of the values. 

M Mean value. 

MD Median of the values. 

VA Variance. 

SD Standard deviation. 

J,K Loop indices. 

N1,N2 Possible data locations to interchange during 

sorting. 

Q Work variable. 



SUGGESTED PROJECTS 



1 . The sorting algorithm used in the program is efficient only 
when the number of list items is fairly small-less than 
twenty-five or so. This is because it does not do checking 
along the way to see when the list becomes fully sorted. If 
your lists tend to be longer than twenty-five items, you might 
wish to use another sorting algorithm more appropriate for 
longer lists. Try researching other sorts and incorporating 
them into the program. To get you started, try these changes: 
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2720Q=0:FORJ=1TON-1:N1=Z(J) 

2730 N2=Z(J+1):IF V(N1)>=V(N2) THEN 2750 

2745 Q=l 

2750 NEXT:IF Q=l THEN 2720 

2760 Z(0)=1: RETURN 

If your lists are short, this routine will probably be a little 
slower than the current one. However, for longer lists it will 
save proportionately more and more time. 

2. Because the INPUT statement is used when entering identi- 
fiers, commas cannot be used inside identifier names. Basic 
will ignore anything entered past the comma. This can be 
circumvented if you use quotes around the identifier name, 
but you may forget to do this. By modifying the input rou- 
tine to use a series of GET commands, you can build up the 
identifier strings piecemeal and allow imbedded commas. 
Modify the appropriate routine to do this. 

3. Many other statistical parameters exist to describe this kind 
of data. Research them and add some that might be useful 
to you. One such idea is classifying the data. This consists 
of dividing the range into a number of equal classes and then 
counting how many values fall into each class. 
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Section 6 
Miscellaneous Programs 



INTRODUCTION TO MISCELLANEOUS PROGRAMS 

These programs show how simple programs can do interesting 
things. Most of them have a mathematical flavor. They are short 
and, as such, would be useful for study for those just learning 
BASIC in particular or programming in general. 

Monte Carlo simulation involves programming the computer 
to conduct an experiment. (It doesn't involve high-stakes gam- 
bling!) PI shows how this technique can be used to calculate an 
approximation to the famous mathematical constant pi. 

PYTHAG will find all right triangles with integral side lengths. 
A clever algorithm is utilized to do this. 

Have you ever looked around your classroom or club meeting 
and wondered if any two people had the same birthdate? 
BIRTHDAY will show you what the surprising odds are. 

Very high precision arithmetic can be done on the PET with 
the proper "know-how." POWERS will calculate the values of 
integers raised to various powers; not to the PET's "normal" 
nine digit precision, but up to 250 full digits of precision. 
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BIRTHDAY 



PURPOSE 

Suppose you are in a room full of people. What is the proba- 
bility that two or more of these people have the same birthday? 
How many people have to be in the room before the probability 
becomes greater than 50 per cent? We are talking only about 
the month and day of birth, not the year. 

This is a fairly simple problem to solve, even without a com- 
puter. With a computer to help with the calculations, it becomes 
very easy. What makes the problem interesting is that the correct 
answer is nowhere near what most people immediately guess. 
Before reading further, what do you think? How many people 
have to be in a room before there is better than a 50-50 chance 
of birthday duplication? 50? 100? 200? 

HOW TO USE IT 

When you RUN the program, it starts by displaying headings 
over two columns of numbers that will be shown. The left 
column is the number of people in the room, starting with one. 
The right column is the probability of birthday duplication. 

For one person, of course, the probability is zero, since there 
is no one else with a possible duplicate birthday. For two 
people, the probability is simply the decimal equivalent of 
1/365 (note that we assume a 365 day year, and an equal likeli- 
hood that each person could have been born on any day of the 
year). 
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What is the probability of duplication when there are three 
people in the room? No, not just 2/365. It's actually 

1 -(364/365 times 363/365) 

This is simply one minus the probability of no duplicate birth- 
days. 

The probability for four people is 

1 - (364/365 times 363/365 times 362/365) 

The calculation continues like this, adding a new term for 
each additional person in the room. You will find that the result 
(probability of duplication) exceeds .50 surprisingly fast. 

The program continues with the calculation until there are 
60 people in the room. You will have to STOP the program long 
before that to see the point where the probability first exceeds 
50 per cent. 

SAMPLE RUN 

NO. OF PROB. OF 2 OR MORE 
PEOPLE WITH SAME BIRTHDAY 

1 

2 2.7397261E-03 

3 8. 20416585E-03 

4 .0163559124 

5 .0271355736 

6 .0404624834 

program listing 

100 rem: coincident birthday probability problem 

110 REM! COPYRIGHT 1978 BY TOM RUGG AND PHIL FELDMAN 

120 PRINT CHR$<147) 

130 PRINT"N0. OF PROB. OF 2 OR MORE" 

140 PRINT" PEOPLE WITH SAME BIRTHDAY" 

150 0=1 

160 FOR N=l TO 60 

170 PRINT NjI-G 

180 G=G*< 365-N )/365 

190 NEXT N 

200 END 
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EASY CHANGES 

Change the constant value of 60 in line 1 60 to alter the range 
of the number of people in the calculation. For example, change 
it to 100 and watch how fast the probability approaches 1. 

MAIN ROUTINES 

120-140 Displays headings. 
1 50 Initializes Q to 1 . 

160- 190 Calculates probability of no duplication, then 
displays probability of duplication. 

MAIN VARIABLES 

N Number of people in the room. 

Q Probability of no duplication of birthdays. 

SUGGESTED PROJECTS 

Modify the program to allow for leap years in the calculation, 
instead of assuming 365 days per year. 
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PI 



PURPOSE AND DISCUSSION 

The Greek letter pi, v represents probably the most famous 
constant in mathematical history. It occurs regularly in many 
different areas of mathematics. It is best known as the constant 
appearing in several geometric relationships involving the circle. 
The circumference of a circle of radius r is 2irr, while the area 
enlosed by the circle is 7rr 2 . 

Being a transcendental number, pi cannot be expressed exactly 
by any number of decimal digits. To nine significant digits, its 
value is 3.14159265. Over many centuries, man has devised 
many different methods to calculate pi. 

This program uses a valuable, modern technique known as 
computer simulation. The name "simulation" is rather self- 
explanatory; the computer performs an experiment for us. 
This is often desirable for many different reasons. The experi- 
ment may be cheaper, less dangerous, or more accurate to run 
on a computer. It may even be impossible to do in "real life." 
Usually, however, the reason is that the speed of the computer 
allows the simulation to be performed many times faster than 
actually conducting the real experiment. 

This program simulates the results of throwing darts at a 
specially constructed dartboard. Consider Figure 1 which shows 
the peculiar square dartboard involved. The curved arc, outlining 
the shaded area, is that of a circle with the center in the lower 
left hand corner. The sides of the square, and thus the radius of 
the circle, are considered to have a length of 1 . 
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Figure 1. The PI Dartboard 

Suppose we were able to throw darts at this square target in 
such a way that each dart had an equal chance of landing any- 
where within the square. A certain percentage of darts would 
result in "hits," i.e. land in the shaded area. The expected value 
of this percentage is simply the area of the shaded part divided 
by the area of the entire square. 

The area of the shaded part is one fourth of the area the entire 
circle would enclose if the arc were continued to completely 
form the circle. Recall the area of a circle is irr 2 where r is the 
radius. In our case, r= 1, and the area of the entire circle would 
simply be it. The shaded area of the dartboard is one fourth of 
this entire circle and thus has an area of 7r/4. The area of the 
square is s 2 , where s is the length of a side. On our dartboard, 
s=l , and the area of the whole dartboard is 1 . 
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Now the expected ratio of "hits" to darts thrown can be 
expressed 

t, » t^ ^ hits shaded area ir/4 n 

RATIO = = = — — = - 

# thrown entire area 1 4 

So we now have an experimental way to approximate the value 
of n. We perform the experiment and compute the ratio of 
"hits" observed. We then multiply this number by 4 and we 
have calculated n experimentally. 

But instead of actually constructing the required dartboard 
and throwing real darts, we will let the PET do the job. The 
program "throws" each dart by selecting a separate random 
number between and 1 for the X and Y coordinates of each 
dart. This is accomplished by using the built-in RND function 
of Basic. A "dart" is in the shaded area if X 2 + Y 2 < 1 for it. 

So the program grinds away, continually throwing darts and 
determining the ratio of "hits." This ratio is multiplied by 4 to 
arrive at an empirical approximation to it. 

HOW TO USE IT 

The program requires only one input from you. This is the 
"sample size for printing," i.e. how many darts it should throw 
before printing its current results. Any value of one or higher 
is acceptable. 

After you input this number, the program will commence the 
simulation and display its results. A cumulative total of "hits," 
darts thrown, and the current approximation to tt will be dis- 
played for each multiple of the sample size. 

This will continue until you press the STOP key. When you 
are satisfied with the total number of darts thrown, press the 
STOP key to terminate the program execution. 



SAMPLE RUN 

A DARTBOARD PI CALCULATOR 
SAMPLE SIZE FOR PRINTING? 150 
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A DARTBOARD PI CALCULATOR 

# HITS tt THROWN tt_ 

113 150 3.06666667 

234 300 3.12 

359 450 3.19111111 

474 600 3.16 

580 750 3.09333334 

699 900 3.10666667 

814 1050 3.10095238 

932 1200 3.10666667 

1045 1350 3.0962963 

1175 1500 3.13333334 

(STOP key depressed) 
PROGRAM LISTING 

100 REM PI 

110 REM COPYRIGHT 1978 BY PHIL FELDMAN AND TOM RUGG 

150 Q=RND(-TI> 

160 T=0iTH=0 

300 G0SUB 600 

310 INPUT-SAMPLE SIZE FOR PRINTING" 5NP 

320 NP=INT<NP>:iF NP<1 THEN 300 

330 GOSUB 600 

340 PRINT"* HITS * THROWN" >TAB< 25HCHR$< 255 > 

360 FOR J=l TO 6t GOSUB 700 {NEXT 

370 PRINT TAB(9HJF0R J=l TO 8JG0SUB 700tNEXTt 

print tab<25h 
380 gosub 700iprint 

400 gosub 50o:th=th+nh:t=t+np:p=4*th/t 
410 print th»t,p 

420 GOTO 400 

500 NH=0 5FOR J=l TO NP 

510 x=rnd<i):y=rndu> 

520 if <x*x+y*yk1 then nh=nh+1 

530 next: return 

600 print chr$(147htab<6h 

610 print'a dartboard pi calculator" 

620 print:print:return 

700 PRINT CHR*< 196 Hi RETURN 
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EASY CHANGES 

1 . If you want the program to always use a fixed sample size, 
change line 3 10 to read 

310NP=150 

Of course, the value of 150 given here may be changed to 
whatever you wish. With this change, line 320 is not needed 
and may be deleted. 

2. If you want the program to stop by itself after a certain 
number of darts have been thrown, add the following two 
lines: 

3 1 5 INPUT'TOTAL # DARTS TO THROW" ;ND 
4 1 5 IF T>=ND THEN END 

This will ask the operator how many total darts should be 
thrown, and then terminate the program when they have 
been thrown. 



MAIN ROUTINES 

150-160 Initializes constants. 

300-380 Gets operator input, displays column headings. 

400 - 420 Calculates and displays results. 

500- 530 Throws NP darts and records number of "hits." 

600 - 620 Clears screen and displays program title. 

700 Draws underlining characters. 



MAIN VARIABLES 

T Total darts thrown. 

TH Total "hits." 

NP Sample size for printing. 

NH Number of hits in one group of NP darts. 

P Calculated value of pi. 

X, Y Random-valued coordinates of a dart. 

J Loop index. 

Q Work variable. 
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SUGGESTED PROJECTS 

1 . Calculate the percentage error in the program's calculation 
of pi and display it with the other results. PET Basic includes 
the special variable 7r which gives the value of pi correct to 
nine digits. The percentage error, PE, can be calculated as 

PE= 100* ABS(P-7r)/7T 

2. The accuracy of this simulation is highly dependent on the 
quality of the PET's random number generator. Try research- 
ing different algorithms for pseudo random number genera- 
tion. Then try incorporating them into the program. Change 
line 510 to use the new algorithm(s). This can actually be 
used as a test of the various random number generators. 
Gruenberger's book, referenced in the bibliography, contains 
good material on various pseudo random number generators. 
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PURPOSE 

By now you have probably learned that the PET keeps track 
of nine significant digits when dealing with numbers. For inte- 
gers less than one billion (1,000,000,000), the PET can retain 
the precise value of the number. But for larger integers the PET 
only keeps track of the most significant (leftmost) nine digits, 
plus the exponent. This means, of course, that there is no way 
you can use the PET to deal with precise integers greater than 
one billion, right? 

Wrong. 

This program calculates either factorials or successive powers 
of an integer, and can display precise results that are up to 250 
digits long. By using a "multiple-precision arithmetic" technique, 
this program can tell you exactly what 973 to the 47th power 
is, for example. 

HOW TO USE IT 

The program first asks you how many digits long you want 
the largest number to be. This can be any integer from 1 to 250. 
So, for example, if you enter 40, you will get answers up to 
forty digits long. 

Next you are asked for the value of N. If you respond with a 
value of 1 , you are requesting to be shown all the factorials that 
will fit in the number of digits you specified. First you will get 
one factorial, then two factorial, and so on. In case you have 
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forgotten, three factorial is 3 times 2 times 1, or 6. Four fac- 
torial is 4 times 3 times 2 times 1 , or 24. 

If you enter an N in the range from 2 through 100,000, you 
are requesting the successive powers of that number up to the 
limit of digits you specified. So, if you provide an N of 23, you 
will get 23 to the first power, then 23 squared, then 23 cubed, 
and so.on. 

Finally, after it has displayed the largest number that will fit 
within the number of digits you entered, the program starts 
over. The larger the number of digits you ask for, the longer 
it will take the program to calculate each number. 

SAMPLE RUN 




The operator wants answers up to 40 digits long in the calculations of the 
powers of 98789. The program calculates numbers up to 98789 s and then 
asks for the number of digits again (in preparation for the next calculation 
the operator requests). 



PROGRAM LISTING 

100 REMt POWERS AND FACTORIALS 

110 REM: COPYRIGHT 1978 BY TOM RUGG AND PHIL FELDMAN 

120 PRINT CHR*<147) 

130 PRINT TAB<10)fCHR*<18>$ 
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140 PRINT"P0WERS AND FACTORIALS" 

150 PRINT {PRINT 

160 DIM N(255) 

170 INPUT"NUMBER OF DIGITS" »M 

180 M=INT(M>:iF H>250 OR H<1 THEN 170 

190 PRINT { INPUT" N" i N 

200 N=INT<N) 

210 IF N<1 OR N>100000 THEN 190 

220 PRINT 

230 f=ojif n=l then f=l jprinffactorials" 
240 if f=0 then print"powers of"jn 
250 t=io:k=i:n<o)=n 

260 FOR J=0 TO M 

270 IF N(JKT THEN 300 

280 Q=INT<N(.J)/T>;W=N(J)-G*T 

290 N( J )=W:N( J+l )=N( J+l )+Q 

300 NEXT 

310 J=M+1 

320 IF N(J)=0 THEN J=J-1!G0T0 320 

330 IF J>=H THEN 500 

340 D=0{ PRINT K5TAB<7>> 

350 N$=STR$< N( J ) >{N$=RIGHT*< N$»l ) 

360 D=D+1JIF D>30 THEN D=l {PRINT {PRINT TAB(7)» 

370 PRINT N*»:J=J-1{IF J>=0 THEN 350 

380 IF F=l THEN N=N+1 

390 K=K+1 {PRINT 

400 FOR J=0 TO MIN(J)=N(J)*N{NEXT 

410 GOTO 260 

500 FOR J=l TO 255{N(J)=0{NEXT 

510 PRINTtGOTO 170 

EASY CHANGES 

1 . To change the program so that it always uses, say, fifty digit 
numbers, remove lines 170 and 180, and insert this line: 

170M=50 

2. To clear the screen before the output begins being displayed, 
change line 220 to say: 

220 PRINT CHR$(147) 

3. To display a blank line before each new number (to improve 
readability), insert this line: 

335 PRINT 

To double space all output, you should also insert another 
PRINT and colon just before the first PRINT in line 360. 



120- 


160 
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310- 


-320 
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MAIN ROUTINES 

Displays title. Sets up array for calculations. 

Asks for number of digits and N. Checks validity 

of responses. Displays heading. 

Initializes variables for calculations. 

Performs "carrying" in N array so each element 

has a value no larger than 9. 

Scans backwards through N array for first non-zero 

element. 
330 Checks to see if this value would be larger than 

the number of digits requested. 
340 - 370 Displays counter and number. Goes to second line 

if necessary. 
380-390 Prepares to multiply by N to get next number. 
400 - 4 1 Multiplies each digit in N array by N. Goes back 

to line 260. 
500 - 5 10 Zeroes out N array in preparation for next request. 

Goes back to 1 70. 

MAIN VARIABLES 

N Array in which calculations are made. 

M Number of digits of precision requested by opera- 

tor. 

N Starting value. If 1, factorials. If greater than 1, 

powers of N. 

F Set to zero if powers, 1 if factorials. 

T Constant value of 10. 

K Counter of current power or factorial. 

J Subscript variable. 

Q,W Temporary variables used in reducing each integer 

position in the N array to a value from to 9. 

D Number of digits displayed so far on the current 

line. 

N$ String variable used to convert each digit into dis- 

playable format. 
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SUGGESTED PROJECTS 

1 . Determine the largest N that could be used without errors 
entering into the calculation (because of intermediate results 
exceeding one billion), then modify line 210 to permit values 
that large to be entered. 

2. Create a series of subroutines that can add, subtract, multiply, 
divide, and exchange numbers in two arrays, using a technique 
like the one used here. Then you can perform high precision 
calculations by means of a series of GOSUB statements. 
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PYTHAG 



PURPOSE 

Remember the Pythagorean Theorem? It says that the sum of 
the squares of the two legs of a right triangle is equal to the 
square of the hypotenuse. Expressed as a formula, it is a 2 + b 2 
= c 2 . The most commonly remembered example of this is the 
3-4-5 right triangle (3 2 + 4 2 = 5 2 ). Of course, there are an 
infinite number of other right triangles. 

This program displays integer values of a, b, and c that result 
in right triangles. 

HOW TO USE IT 

To use this program, all you need to do is RUN it and watch 
the "Pythagorean triplets" (sets of values for a, b, and c) come 
out. The program displays twenty sets of values on each screen, 
and then waits for you to press any key (except STOP) before it 
continues with the next twenty. It will go on indefinitely until 
you press the STOP key. 

The left-hand column shows the count of the number of sets 
of triplets produced, and the other three columns are the values 
of a, b, and c. 

The sequence is which the triplets are produced is not too 
obvious, so we will explain how the numbers are generated. 

It has been proved that the following technique will generate 
all primitive Pythagorean triplets. ("Primitive" means that no 
set is an exact multiple of another.) If you have two positive 
integers called R and S such that: 
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1 . R is greater than S, 

2. R and S are of opposite parity (one is odd and the other is 
even), and 

3. R and S are relatively prime (they have no common integer 
divisors except 1 ), 

then a, b, and c can be found as follows: 

a = R 2 - S 2 
b = 2RS 
c = R 2 + S 2 

The program starts with a value of 2 for R. It generates all 
possible S values for that R (starting at R- 1 and then decreasing) 
and then adds one to R and continues. So, the first set of triplets 
is created when R is 2 and S is 1 , the second set when R is 3 and 
S is 2, and so on. 

SAMPLE RUN 




The program generates a screen full of Pythagorean triplets, then waits for 
the operator to press a key to continue. 
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PROGRAM LISTING 

100 REN: PYTHAGOREAN TRIPLETS 

110 REM J COPYRIGHT 1978 BY TOM RUGG & PHIL FELDMAN 

130 r=2*k=i:d=o 

150 GOSUB 350 

180 S=R-1 

190 A=R*R-S*S 

200 B=2*R*S 

210 C=R#R+S*S 

220 PRINT KrArBfC 

230 K=K+liD=D+i:GOTO 400 

240 S=S-2tIF S<=0 THEN R-R+1JG0T0 180 

250 S1=S 

255 B1=R 

260 N=INT<B1/S1> 

270 R1=B1-(S1*N> 

230 IF R1O0 THEN B1=S1 tSl=Rl!G0T0 260 

300 IF SlOl THEN 240 

320 GOTO 190 

350 PRINT CHR*U47)» 

360 PRINT"**** PYTHAGOREAN TRIPLETS ****" 

370 PRINT 

380 PRINT-COUNT" » "--A— "»"--B— ","— C— " 

390 RETURN 

400 IF D<20 THEN 240 

410 PRINT 

420 PRINT-PRESS ANY KEY TO CONTINUE"? 

430 GET R*JIF R$="" THEN 430 

440 GOSUB 350 

450 D=0 

460 GOTO 240 

EASY CHANGES 

1. Alter the starting value of R in line 130. Instead of 2, try 
50 or 100. 

2. If you want, you can change the number of sets of triplets 
displayed on each screen. Change the 20 in line 400 to a 10, 
for example. You probably won't want to try a value greater 
than 20, since that would cause the column headings to roll 
off the screen. 

3. To make the program continue without requiring you to 
press a key for the next screen of values, insert either of these 
lines: 



262 BASIC Programs for the PET 

405 GOTO 440 
or 

405 GOTO 450 

The first will display headings for each screen. The second 
will only display the headings at the beginning of the run. 

MAIN ROUTINES 

130 Initializes variables. 

1 50 Displays the title and column headings. 

180 Calculates first value of S for current R value. 

190-210 Calculates A, B, and C. 

220-230 Displays one line of values. Adds to counters. 

240 Calculates next S value. If no more, calculates 

next R value. 
250 - 300 Determines if R and S are relatively prime. 
350-390 Subroutine to display title and column headings. 
400 - 460 Checks if screen is full yet. If so, waits for key to 

be pressed. 

MAIN VARIABLES 

R,S See explanation in "How To Use It." 

K Count of total number of sets displayed. 

D Count of number of sets displayed on one screen. 

A,B,C Lengths of the three sides of the triangle. 

S1,B1, Used in determining if R and S are relatively 

R1,N prime. 

R$ Key pressed by operator to continue. 

SUGGESTED PROJECTS 

1. In addition to displaying K, A, B, and C on each line, display 
R and S. You will have to squeeze the columns closer together. 

2. Because this program uses integer values that get increasingly 
large, eventually some will exceed the PET's integer capacity 
and produce incorrect results. Can you determine when this 
will be? Modify the program to stop when this occurs. 



Appendix I 
Memory Usage 



Each of the programs in this book will fit in a Commodore 
PET 2001 computer that has 8K or more of user memory. If 
your PET has only 4K of user memory, you'll find that the 
great majority of the programs will still fit in your computer 
with no changes. A few other programs will require minor 
changes that are discussed in the text of the corresponding 
chapters. 

Based on our estimates, here are the programs that will not 
fit in a 4K PET: 

Programs that will probably fit in a 4K PET if you make fairly 
extensive changes: 

(for example, eliminating unnecessary spaces from program 
statements, reducing the length of text literals where possible, 
deleting REM statements, removing unneeded options, reducing 
array sizes where possible, etc.) 

CHECKBOOK, WARI 

Programs that are too large to be compressed into 4K: 
DECIDE, JOT, STATS 
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